一个关于hash的习题，出错，请教各位？

jakepain

前几天刚学perl，看的是小骆驼书，下面是hash章节后的习题，输入人名，打印出人姓，自己写了个，结果错误。代码如下，请教各位!

#!/usr/bin/perl -w my %last_name = ("fred" => "flintstone","dino" => undef,"barney" => "rubble","betty" => "rubble",); $name = <STDIN>; foreach $key (keys %last_name) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($key eq $name) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print "$last_name($key)";   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} }

MMMIX

你应该这么写：

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warings;
   
6. 
   
7. my %last_name = (
   
8.     fred => 'flintstone',
   
9. );
   
10. 
    
11. while (<STDIN>) {
    
12.     chomp;
    
13.     print $last_name{$_} if $last_name{$_};
    
14. }
    

复制代码

redmaple_v1

原帖由 MMMIX 于 2009-3-26 14:14 发表
你应该这么写：

#!/usr/bin/perl

use strict;
use warings;

my %last_name = (
    fred => 'flintstone',
);

while () {
    chomp;
    print $last_name{$_} if $last_name{$_};
}

楼主去买彩票吧，很难看到MMMIX大大敲代码的。。。。

jakepain

多谢版主
应该是我的变量多读取了“\n”
加了chomp可以了
原来if语句也可以放在后面。见识了。

jakepain

哈哈
太荣幸了
偶现在确实有在买彩票

MMMIX

原帖由 redmaple_v1 于 2009-3-26 14:25 发表


楼主去买彩票吧，很难看到MMMIX大大敲代码的。。。。

shaneqi

#!/usr/bin/perl

%name=("fred"=>"flintstone","barney"=>"rubble","wilma"=>"flintsone",);
print "please input a given name:\n";
chomp($name1=<STDIN>);

if(exists $name{$name1}){
print "$name{$name1}\n";
}

wxlfh

我以前也老犯这种错，老是不把那个换行符去掉，结果费了姥姥劲才查出来，痛苦。

jakepain

呵呵
看来多做习题还是有好处的
容易发现问题
当然也容易劳烦各位

shaneqi

小骆驼书不错。