in reply to Random number
Code to generate an unsigned random 16 bit integer:
my $randbits="";
open(URANDOM, "/dev/urandom") or die "Phooey: $!";
read(URANDOM, $randbits, 2);
close(URANDOM);
$rand=unpack("S*", $randbits);
printf("random: %d\n", $rand);
Divide by whatever to produce a random integer in a specific range.
|
|---|
In Section
Seekers of Perl Wisdom