Perl continue 语句

while(condition){
   statement(s);
}continue{
   statement(s);
}

foreach $a (@listA){
   statement(s);
}continue{
   statement(s);
}

#/usr/bin/perl
   
a = 0;
while(a < 3){
   print "a = a\n";
}continue{a = $a + 1;
}

a = 0
a = 1
a = 2

#/usr/bin/perl
   
@list = (1, 2, 3, 4, 5);
foreach a (@list){
   print "a =a\n";
}continue{
   last if $a == 4;
}

a = 1
a = 2
a = 3
a = 4