Message
From: "Sisyphus"
You could get 30-bit pseudo-random integers by doing:
my $fn = oct("0b" . sprintf("%b", rand(32768)) . sprintf("%b",
rand(32768)));
didn't get the formatting right. I think "%b" needs to be replaced
with "%015b".
Cheers,
Rob
Perl-Win32-Users mailing list
Perl-Win32-Users (AT) listserv (DOT) ActiveState.com
To unsubscribe: