|
|
|
| Don't ask to ask, just ask | |
| PerlMonks |
Re: Re: 1 0\/\/Nz U DoodZ!by howard40 (Beadle) |
| on Feb 28, 2001 at 03:00 UTC ( [id://61221]=note: print w/replies, xml ) | Need Help?? |
|
$data =~ s/ss^\b/ran("55","\$\$","\$\$")/gie; That ^ makes no sense. He's trying to make "$$" a more probable outcome than "55"... if you have a bag with one red hat and two black hats, and you pick one at random, chances are better for picking a black hat than a red one... I kinda like the way he did that... it's strangely creative :)
In Section
Cool Uses for Perl
|
|
|||||||||||||||||||||||||||