zjzc01:/root/test# cat a3.pl
sub mask {
my $n=shift;
my $j =100;
for ($i = 1;$i <= 5;$i++){
print "\$i is $i\n";
while ($n=$n+1) {
$j++;
print "\$n is $n\n";
if ($n==10){print "\$n---end is $n\n";$n=0;last};
}}
};
&mask(1);
zjzc01:/root/test# perl a3.pl
$i is 1
$n is 2
$n is 3
$n is 4
$n is 5
$n is 6
$n is 7
$n is 8
$n is 9
$n is 10
$n---end is 10
$i is 2
$n is 1
$n is 2
$n is 3
$n is 4
$n is 5
$n is 6
$n is 7
$n is 8
$n is 9
$n is 10
$n---end is 10
$i is 3
$n is 1
$n is 2
$n is 3
$n is 4
$n is 5
$n is 6
$n is 7
$n is 8
$n is 9
$n is 10
$n---end is 10
$i is 4
$n is 1
$n is 2
$n is 3
$n is
perl return和break
最新推荐文章于 2024-07-15 22:13:36 发布
这篇博客通过示例代码展示了Perl中`return`和`break`关键字的不同用法。`last`用于退出当前循环,而`return`则用于结束当前函数,并可选择性地返回一个值。在提供的代码中,当$n等于10时,使用`last`会终止内部的`while`循环,而使用`return`则会结束整个`mask`子程序。
摘要由CSDN通过智能技术生成