|
|
|
| Perl: the Markov chain saw | |
| PerlMonks |
RE: Random numberby gronkulator (Sexton) |
| on Jul 10, 2000 at 17:36 UTC ( [id://21787]=note: print w/replies, xml ) | Need Help?? |
|
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
|
|
||||||||||||||||||||||