Welcome to the Monastery | |
PerlMonks |
Re2 (rand() in C): A little C code converted to Perl *HELP*by bbfu (Curate) |
on Nov 03, 2003 at 17:54 UTC ( [id://304190]=note: print w/replies, xml ) | Need Help?? |
The rand function in C returns a random integer. The OP's C code seems to assume 16 bit integers, so that's a max of 65535 (or 32767 to -32768, IIRC). So, I think the equivalent Perl code would be something like: $gcheck = sprintf "%x", ((int(rand(65536)) << 16) | int(rand(65536))); bbfu
In Section
Seekers of Perl Wisdom
|
|