Re^2: Is this really random?

in reply to Re: Is this really random?
in thread Is this really random?

...what about using this?

#!/usr/bin/perl

use strict;
use warnings;

open(RANDOM, "<", "/dev/random") || die $!;
read(RANDOM, $_, 4);
close RANDOM;
my $seed = unpack("L", $_);
print $seed . qq(\n);
srand($seed);
# do stuff...
[download]

Regards, Karl

ŤThe Crux of the Biscuit is the Apostropheť

Comment on Re^2: Is this really random? Download Code

In Section Seekers of Perl Wisdom