- 论坛徽章:
- 0
|
前几天刚学perl,看的是小骆驼书,下面是hash章节后的习题,输入人名,打印出人姓,自己写了个,结果错误。代码如下,请教各位!
#!/usr/bin/perl -w
my %last_name = ("fred" => "flintstone","dino" => undef,"barney" => "rubble","betty" => "rubble",);
$name = <STDIN>;
foreach $key (keys %last_name)
{
if ($key eq $name)
{
print "$last_name($key)";
}
} |
|
|