perl语言入门练习问题

shot

print "Please input your first name: ";
my $first_name = <STDIN>;
chomp($first_name);   
my %last_name = (
    "fred" => "flintstone",
    "barney" => "rubble",
    "wilma" => "zl",
);
while (exists $last_name{$first_name}) {
    print $last_name{"$first_name"};
    chomp($first_name=<STDIN>);            
    exit 0;
}
print "Not found.\n";


不清楚为何会有这一句，在while 里？
   chomp($first_name=<STDIN>);

BangBull

去 \n 用的

kexinqw

在while里加chomp($first_name=<STDIN>);是可以不停的给$first_name赋值，直到不存在退出。
不过既然有着用意，我不知道为什么还要加个 “exit 0” ？
费解！

meihuaqi

exit 0,表示正常退出，找到了你想找的东西
不然会打印，not found!!