娇w兴 发表于 2018-9-1 07:22:18

perl中的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";
　　}

页: [1]
查看完整版本: perl中的hash练习笔记