----- Original 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)));
>Ooops ... didn't get the formatting right. I think "%b" needs to be replaced with "%015b". Cheers, Rob _______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
