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";
}
页:
[1]