Question

perl语言中如果输错的话，怎样让其循环输入直到输入正确为止！

Answer 1

这个一般都是通过while循环来实现了，楼上的回答其实是正确的。比如如果我要求输入字符串为 WellDone 的时候才会接下来执行，否则提示其输入错误，并要求其重新输入，那么可以这样写:

#!/usr/bin/perl -w
use strict;
my $input = "";
while($input ne "WellDone"){
print "请输入字符串:WellDone。\n";

$input = <STDIN>;

}
print "恭喜你输入正确.\n";

以上脚本运行之后，如果输入错误，则会提示输入WellDone,输入正确，则输出信息 恭喜你输入正确

Answer 2

while(<STDIN>)
{
last if allright($_);
}

Answer 3

while （<>）{
last if &tureorwrong($_);

}