#!/usr/bin/perl
while (<STDIN>) {
chomp($_);
if ($_ eq "yes") {
last;
} else {
print "reinput..\n";
}
}
print "input end\n";
for (1..10) {
print "$_ ";
if ($_ eq 5) {
last;
}
}
# ./last.pl
hello
reinput..
yes
input end
1 2 3 4 5
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |