Question

perl编程，小弟写了一个程序，想在输入bye时结束程序，请问使用什么函数呢？望高手指点，非常感谢。

while(1){
print "Enter words\n";
$key=<STDIN>;
chomp($key);
open (FD,">newfile.txt");
if(exists $statistics{"$key"}){
@statistics=@{$statistics{$key}};
print FD "$key: @statistics";
}
else{
print FD "There is no the word:$key\n";
}
close FD;
}

Answer 1

使用 exit 0;
一般正确退出用 exit 0; 异常使用 exit 1;

Answer 2

if($key eq "bye"){
last;
}