Perl 修改循环控制流的语句

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

标记修饰符

标记有自己的命名空间，和标量变量、列表、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   -wfor($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 修改循环控制流的语句全部内容，希望文章能够帮你解决Perl 修改循环控制流的语句所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。