perl中的hash练习笔记

发布时间：2020-12-16 00:44:11 所属栏目：大数据来源：网络整理

导读：这道练习题是小骆驼中hash中的一道，感觉很有代表性。 ????? 读取一些单词，每行一个直到文件结束，然后出每个单词出现的次数。有两种方法可以完成它，如下第一种方法 #!/usr/bin/perl -w print "Enter words:" chomp(@k=); foreach $k (@k) { ???????????

这道练习题是小骆驼中hash中的一道，感觉很有代表性。

????? 读取一些单词，每行一个直到文件结束，然后出每个单词出现的次数。

有两种方法可以完成它，如下

第一种方法

#!/usr/bin/perl -w
print "Enter words:"
chomp(@k=<>);
foreach $k (@k) {
???????????? $count{$k} +=1 ; #计算单词的次数

}
foreach $k????(sort keys%count){ #取出散列中的单词次数
print "$k:$count{$k}n";

}

第二种方法

#!/usr/bin/perl while(<>){ chomp; ???????????? $count{$_}++; } for (sort keys%count){ print "$_:$count{$_}n"; }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!