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

最新推荐文章于 2025-10-25 10:36:41 发布

原创最新推荐文章于 2025-10-25 10:36:41 发布 · 269 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Perl

perl 专栏收录该内容

3 篇文章

订阅专栏

本文提供两个Perl程序实例：一是通过用户输入名字匹配对应的姓氏；二是统计从标准输入读取的单词频率，并按ASCII顺序输出。这些实例展示了如何使用Perl进行简单的数据处理。

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";
}