- or download this
sub skip_on_odd { next NUMBER if $_[0] % 2 }
NUMBER: for ($i = 0; $i < 5; $i++) {
skip_on_odd($i);
print $i;
}
- or download this
sub jump { goto NESTED };
...
}
cont();
- or download this
Can't find label NESTED at /home/lanx/B/PL/PM/goto.pl line 1.
0,a