Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: Is this really random?

by karlgoethebier (Prior)
on Nov 22, 2012 at 18:30 UTC ( #1005168=note: print w/replies, xml ) Need Help??


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»

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005168]
help
Chatterbox?
erix .oO( apparently but does not GotToBFast )
[Discipulus]: now i must come back to my house/hoven monks: dont do interesting discussion in my absence!
[erix]: or apparently, now it does :)
[GotToBTru]: heh
erix prods ambrus to (re-)start cbstream...
[GotToBTru]: I've got a program with an if ... or ... statement with 80 clauses
[stevieb]: 80 clauses? dispatch table?
[GotToBTru]: no, lookup
[stevieb]: no, I mean have you considered using a dispatch table. an 80 condition if/else is huge :)

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (11)
As of 2017-06-22 12:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (519 votes). Check out past polls.