Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Is this really random?

by 2teez (Priest)
on Nov 22, 2012 at 03:37 UTC ( #1005048=note: print w/ replies, xml ) Need Help??


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


Comment on Re: Is this really random?
Re^2: Is this really random?
by karlgoethebier (Curate) 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...

    Regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005048]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (13)
As of 2014-10-02 16:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (65 votes), past polls