[问题求助] Perl怎样快速生成大量不重复的随机数？

DAIC

1、生成一千万个互不重复的随机数
2、速度越快越好

DAIC

$max=10000000;
for $i (1..$max) {
    $arr[$i-1]=$i;
}
for ($i=$max;$i>0;$i--) {
    $randx=int( rand() * $i );
    print "$arr[$randx]\n";
    $arr[$randx]=$arr[$i-1];
}
复制代码

timeit perl test.pl >a.txt
复制代码

Elapsed Time:     0:00:21.801
Process Time:     0:00:21.060

4楼的方法需要21秒多，还有更快的吗？

DAIC

我是2G的内存，2.8G的双核CPU。