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

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Replies are listed 'Best First'.
Re^2: Is this really random?
by karlgoethebier (Abbot) on Nov 22, 2012 at 18:30 UTC

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

[reply]
[d/l]

In Section Seekers of Perl Wisdom