perl语言入门第四版第六章(hash)习题

1.写一个程序,提示用户输入 given name(名) ,并给出其对应的 family name(姓)。使用你知道的人名,或者表 6-1
                             表 6-1 样本数据
         输入                            输出
         fred                          flintstone
         barney                        rubble
         wilma                         flintstone

 

#!/usr/bin/perl -w
%names=(fred=>"flintstone",barney=>"rubble",wilma=>"flintstone");
chomp($line=<STDIN>);
while(exists $names{$line}){
   print "$names{$line}\n";
   chomp($line=<STDIN>);
}
print "Not found!\n";

 

2.写一个程序,读入一串单词(一个单词一行),输出每一个单词出现的次数。

3.作为额外的练习,可以将输出的单词按照 ASCII 排序。

 

#!/usr/bin/perl -w
chomp(@lines=<STDIN>);
foreach $key(@lines){
   $names{$key}++;
}
foreach $key(sort keys%names){
   print "$key=>$names{$key}\n";
}