小谈 redo 运算符

小谈 redo 运算符
我是一个perl初学者,在学习过程中发现这个redo运算符 .当时看书.在这卡住了,但后来小试了一下才发现这东西有意思.好了废话不说了先看两个例子:
一:
use strict;
use warnings;

for(my $index=1;$index<=10;$index++){
print "Enter name number $index:";
my $result=<STDIN>;
chomp($result);
#如果用户输入一个空行，则再给次一机会
if($result eq ""){
redo;
}
print "$result\n";

}

二:
use strict;
use warnings;

for(my $index=1;$index<=10;$index++){
print "Enter name number $index:";
my $result=<STDIN>;
chomp($result);
#如果用户输入一个空行，则再给次一机会
if($result eq ""){
next;
}
print "$result\n";

}
两个例子为一的不同就是一个用的next,一个用的redo;
只看你会很晕.
运行一下,你就知道其中的奥妙了,哈!
如果还有疑问就给我流言好了,希望能帮到大家!

非常好[CCB]2[/CCB].
非常好[CCB]2[/CCB]