8 lines
140 B
Perl
8 lines
140 B
Perl
|
while ($loop_index <= 10) {
|
||
|
|
print "Hello\n";
|
||
|
|
next if $loop_index > 5;
|
||
|
|
print "there\n";
|
||
|
|
} continue {
|
||
|
|
$loop_index++;
|
||
|
|
}
|