在Perl中,如何生成由八个十六进制数字组成的随机字符串？

#!/usr/bin/env perl

use Strict; use warnings;

for (1 .. 10) {
    printf "%08X\n",rand(0xffffffff);
}

但是,您@R_618_9381@ – 至少在某些系统上有一些perls(如果不是全部) – range of rand is restricted to 32,768 values.

您还可以学习String::Random的源代码,以了解如何生成满足其他条件的随机字符串.

但是,我不建议在Windows系统上使用内置兰特.有关高质量RNG,请参阅Math::Random::MT.

#!/usr/bin/env perl

use Strict; use warnings;

my @set = ('0' ..'9','A' .. 'F');
my $str = join '' => map $set[rand @set],1 .. 8;
print "$str\n";

PS：The issue with Perl’s rand on Windows was fixed in 5.20：