Mega Code Archive

 

Categories / Perl / Statement

 

Next statement with if statement

@a = (0 .. 20); @b = (-10 .. 10); DIVISION: while (@a) {     $a = pop @a;     $b = pop @b;     next DIVISION if ($b == 0);     print "$a / $b = " . $a / $b . "\n"; }