Re: Is this really random?

[2teez]

in reply to Is this really random?

++ muba
.. And in addition to that, i will say also look at srand and some CPAN modules like:
Math::TrulyRandom,
Math::Random::MT::Perl,
Math::Random::Secure

[karlgoethebier]

...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...

Regards, Karl