Как в Perl генерировать случайные строки, состоящие из восьми шестнадцатеричных цифр?

В принципе, вы должны быть в состоянии сделать

#!/usr/bin/env perl

use strict; use warnings;

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

Однако вы можете обнаружить, что — по крайней мере, в некоторых системах с некоторыми perls (если не во всех) — диапазон rand ограничен 32 768 значениями.

Вы также можете изучить исходный код String::Random, чтобы научиться генерировать случайные строки, удовлетворяющие другим условиям.

Однако мое предостережение против использования встроенного rand в системе Windows остается в силе. См. 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: Проблема с рандом Perl в Windows была исправлена ​​в версии 5.20:

Это означало, что качество случайных чисел Perl будет варьироваться от платформы к платформе, от 15-битной функции rand() в Windows до 48-битной на платформах POSIX, таких как Linux с drand48().

Теперь Perl использует собственную внутреннюю реализацию drand48() на всех платформах. Это не делает perl rand криптографически безопасным. [перл # 115928]

Общий пример, допускающий любой диапазон символов:

my @chars = ('0'..'9', 'A'..'F');
my $len = 8;
my $string;
while($len--){ $string .= $chars[rand @chars] };
print "$string\n";

sprintf("%08X", rand(0xFFFFFFFF))

некоторые люди упомянули оконный предел ранда с MAX-значением ранда (0x7FFF) или ранда (32768) десятичного числа, я бы преодолел это с помощью двоичного оператора сдвига '‹‹'

# overcomes the windows-rand()-only-works-with-max-15bit-(32767)-limitation:
#   needed 8*4==32bit random-number:
#     first get the 15 high-significant bits shift them 17bits to the left,
#     then the next 15bits shifted 2 bits to the left,
#     then the last 2 bits with no shifting:
printf( '%08X', (
    (rand(0x8000)<<17) + (rand(0x8000)<<2) + rand(0b100) )
      );

Но я рассматриваю это только как академический, потому что это действительно неуклюжий код, который трудно понять.
Я бы не стал использовать это в реальном коде, только если скорость важнее всего.
Но, возможно, это самое быстрое решение. и он демонстрирует схему для преодоления ограничения функции rand() под окнами...

Используйте sprintf для преобразования чисел в шестнадцатеричный формат.

$foo .= sprintf("%x", rand 16) for 1..8;