Re: How do I get simple random numbers?

[R. Joseph Newton]

Jamie Risk wrote:

> I'm thinking I could open up "/dev/urandom/" but that hardly seems portable.

Hi Jamie,

Remember the principle of KISS.

#!/usr/bin/perl -w

use strict;

my $bits = $ARGV[0];
my $Random = int (rand(2**$bits));
print "$Random\n";

Joseph


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]