[sf-perl] a reason to goto
Quinn Weaver
quinn at fairpath.com
Sun Feb 25 11:19:01 PST 2007
On Sat, Feb 24, 2007 at 11:25:23PM -0800, Joe Brenner wrote:
> [...]
> I don't know if it made it out to the list (I think my mail is acting
> flaky at the moment) but the perlish way of doing it is probably this:
>
> if ($RANDOMIZE) {
> {{
> $i = pick_numeric(0, $numb_cards-1);
> $j = pick_numeric(0, $numb_cards-1);
> unless( $REFLEXIVE ) {
> if ($i == $j) {
> redo;
> }
> }
> }}
> }
FYI, it did make it to the list.
--
Quinn Weaver, independent contractor | President, San Francisco Perl Mongers
http://fairpath.com/quinn/resume/ | http://sf.pm.org/
More information about the SanFrancisco-pm
mailing list