我想生成随机的十六进制值，这些值不应重复 它应该是 4 个字节（即：0x00000000 到 0xffffffff）和显示输出 应包含前导零。
例如：如果我得到值 1，它不应该表示为 0x1，而是 0x00000001。
我想要至少 100 个随机值。请告诉我：我怎样才能在 Perl 中做到这一点？
【问题讨论】：
标签： perl
获取0 .. (2
my $rand = int(rand(0x100000000));
用前导零以十六进制打印：
printf "%08x", $rand;
请在 Perl 手册页中注意这一点：
注意：如果您的 rand 函数始终返回 太大或太小，那么您的 Perl 版本可能是用错误数量的 RANDBITS 编译的
如果这是一个问题，请改为这样做：
printf "%04x%04x", int(rand(0x10000)), int(rand(0x10000));
另外请注意，这并不能防止重复，尽管老实说，在 100 数字序列中重复 32 位数字的机会非常小。
如果绝对不能重复，请执行以下操作：
my (%a); # create a hash table for remembering values
foreach (0 .. 99) {
my $r;
do {
$r = int(rand(0x100000000));
} until (!exists($a{$r})); # loop until the value is not found
printf "%08x\n", $r; # print the value
$a{$r}++; # remember that we saw it!
}
无论如何，如果可能值的范围小于（或什至接近）所需值的数量，则不应使用此算法。这是因为随机数生成器循环只会重复提取已经看到的数字。
但是，在这种情况下，可能的范围如此之高 (2^32) 并且所需的值的数量如此之低，它会完美地工作。事实上，在如此高的范围内，它是唯一实用的算法。
【讨论】：
perl -e 'printf "%08X\n", int rand 0xFFFFFFFF for 1 .. 100'
【讨论】：
Alnitak explained it，但这里有一个更简单的实现。我不确定每个人是如何开始接触do {} while，因为这是一个非常奇怪的选择：
my $max = 0xFFFF_FFFF;
my( %Seen, @numbers );
foreach ( 1 .. 100 )
{
my $rand = int rand( $max + 1 );
redo if $Seen{$rand}++;
push @numbers, $rand;
}
print join "\n", map { sprintf "0x%08x", $_ } @numbers;
另外，正如 Alnitak 指出的那样，如果您生成大量数字，redo 可能会循环很多很多次。
这些只是伪随机数，但无论如何你并不是真正要求真正的随机数。这将涉及可能的重复。 :)
【讨论】：
do { } while 并不奇怪，如果你不知道 redo :) 它已经存在了多久？
use LWP::Simple "get";
use List::MoreUtils "uniq";
print for uniq map { s/\t//, "0x$_" } split /^/, LWP::Simple::get('http://www.random.org/integers/?num=220&min=0&max=65535&col=2&base=16&format=plain&rnd=date.2009-12-14');
调整 url（参见http://www.random.org/integers/?mode=advanced 上的表格）以不总是返回相同的列表。没有返回至少 100 个结果的可能性很小。
请注意，作为对糟糕问题的评论，此答案故意“糟糕”。这不是一个单独的问题，而是一堆都打包在一起的问题，我敢打赌所有这些问题都已经有了答案（如何在 x 范围内生成随机数，如何将数字格式化为 0x 的十六进制字符串和0-padding，如何仅将唯一值添加到列表中，等等）。这就像问“我如何在 Perl 中编写网络服务器？”在不猜测提问者真正想要答案的部分的情况下，您要么必须写一个大部头来回答，要么说如下：
perl -MIO::All -e 'io(":80")->fork->accept->(sub { $_[0] < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })'
【讨论】：
@random_numbers = qw( 1 5 2 3 3 6 3 6 2 ); # random numbers determined by fair dice roll. 之类的事情显然，OP 不能只使用 6 面骰子，但他可以掷出 4D8 来获得八进制值。 ;)
获取随机整数：
int(rand(0x10000000))
将其格式化为 8 个十六进制数字：
printf "%08x", int(rand(0x10000000))
【讨论】：