perl语言last和next命令:
|
#last 退出循环陈述
for
(
$i
=1;
$i
<=10;
$i
++)
{
lastif
(
$i
==5);
#如果$i等于5的话就退出for循环
print
"$i\n"
;
}
#会把1到4之间的数值显示出来.
#next 到循环的下一个陈述
for
(
$i
<=10;
$i
++)
{
#如果是2的倍数的话,就到循环的下一个陈述
nextif
(
$i
%2)==0)
print
"$i是一个奇数!\n"
;
}
#会把1以10之间的奇数显示出来。
|