码迷,mamicode.com
首页 > 其他好文 > 详细

Perl 修改循环控制流的语句

时间:2015-05-28 21:38:45      阅读:148      评论:0      收藏:0      [点我收藏+]

标签:

标记修饰符

标记有自己的命名空间,和标量变量、列表、hash、函数一样,不过由于它没有特别的前置符号,所以在命名上有一些限制:如尽量不要和其他的命名冲突,标记名称最好由大写字母和数字构成,这样保证不会和任何保留字冲突,而且看起来也比较明显。选定标记之后,只要把它放在需要的语句前面,并加上冒号即可,下面是此用法的一个示例:

MYLABEL: while(condition){
		statement1;
		statement2;
		if(another_condition){
			last MYLABEL;
		}
	}

last语句

使用不带标号的修饰符的last语句时,退出当前语句块,使用带标号的修饰符的last语句时,退出与所带标号修饰符相关的语句块。
 示例:

#!/usr/bin/perl   -w

@x=('A'..'Z');
for ($index = 0;$index < @x ;$index++){
	if($x[$index] eq 'T'){
		last;
	}
}	
print "$index\n";
简单来说,last的意思是退出循环,与C语言中的break作用相同。


next语句
        使用不代标号修饰符的next语句时,退出本次执行的当前语句块,继续判断循环条件执行循环;使用带标号修饰符的next语句时,退出与所带标号修饰符相关联的循环,仍需要继续判断循环条件执行循环。
示例:

#!/usr/bin/perl   -w

@array=(0..9);
for ($index = 0;$index < @array ;$index++){
	if( $index == 3 || $index == 5 ){
		next;
	}
	$array[$index] = '*';
	
}	

print "@array\n";
简单来说,next的含义是执行下一个循环,与C语言的continue作用相同。


redo语句
使用不带标号修饰符的redo语句时,语句跳到所在语句块的第一条语句上;使用带标号修饰符的read语句时,跳到与所带标号相关联的语句块上的第一条语句上。
示例:

#!/usr/bin/perl   -w

for($i=0;$i<1;$i++){
	print("What's your name?\n");
	$name=<STDIN>;
	chomp($name);

	if( ! length($name)){
		print("Msg: Zero length input, Please try again!\n");
		redo;
	}
}
print("Thank you ".uc($name)."\n");
redo是Perl的一个特有命令,其含义是重复此次循环,即循环变量不变,回到循环起始点。但要注意,redo命令在do循环中不起作用。





Perl 修改循环控制流的语句

标签:

原文地址:http://blog.csdn.net/u011641885/article/details/46127763

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!