老刘1号

回复 3# xczxczxcz


    这种要求用解释型语言太伤了，根本没有效率可言

xczxczxcz

回复 2# 523066680

I5  多线程 1000000个，要40多秒。感觉写法不太好。再研究一下。那个[random]等还用不好。

523066680

use Time::HiRes qw/time/;
STDOUT->autoflush(1);
my $ta = time();
my @upper = ('A'..'Z');
my @eles = ('a'..'z', 'A'..'Z', '0'..'9');
my $e_len = scalar(@eles);
my $key;
for my $i (1..1000000)
{
   $key = $upper[rand(26)] . join("", map { $eles[rand($e_len)] } (1..6) ) ;
   printf "%s\n", $key;
}
printf STDERR "time usage %.2f", time()-$ta;
复制代码

genCode.pl >F:/temp/a.txt
输出到机械硬盘，100W个，4秒

join "", map {} () 改成末尾append形式，100W个，3秒

for my $i (1..1000000)
{
   $key = $upper[rand(26)];
   grep { $key .= $eles[rand($e_len)] } (1..6);
   printf "%s\n", $key;
}
复制代码

CPU 频率 4GHz