当前位置：首页 -> 技术开发 -> CGI专区 -> perl实例分析教程之十一

perl实例分析教程之十一

时间： 2021-07-31 作者：daque

四、减少元素　　创造一个关系数组元素最大略的本领是赋值，如语句$fruit{"bananas"} = 1；把1赋给关系数组%fruit下标为bananas的元素，即使该元素不生存，则被创造，即使数组%fruit从未运用过，也被创造。这一个性使得关系数组很简单用来计数。底下咱们用关系数组改写上头的步调，提防实行同样的功效此步调简化了很多。 1 : #!/usr/local/bin/perl 2 : 3 : while ($inputline = ) { 4 : while ($inputline =~ /b[a-z]s+/g) { 5 : $word = $&; 6 : $word =~ s/[;.,:-]$//; # remove punctuation 7 : $wordlist{$word} += 1; 8 : } 9 : } 10: print ("capitalized words and number of occurrences:n"); 11: foreach $capword (keys(%wordlist)) { 12: print ("$capword: $wordlist{$capword}n"); 13: } 运转截止如次： here is a line of input. this input contains some capitalized words. ^d capitalized words and number of occurrences: this: 1 input: 2 here: 1 capitalized: 1 你不妨看到，这次步调大略多了，读取输出共存贮各单词数量从20行缩小到了7行。本步调用关系数组%wordlist盯梢首假名小写的单词，下标就用单词自己，元素值为该单词展示的度数。第11行运用了内嵌因变量keys()。这个因变量归来关系数组的下标列表，foreach语句就用此列表轮回。注：关系数组老是随机存贮的，所以当你用keys()考察其一切元素时，不保护元素以任何程序展示，更加犯得着一提的是，它们不会以被创造的程序展示。要想遏制关系数组元素展示的步骤，不妨用sort()因变量对keys()归来值举行陈设，如： foreach $capword (sort keys(%wordlist)) { print ("$capword: $wordlist{$capword}n"); } 　五、创造关系数组　　不妨用单个赋值语句创造关系数组，如： %fruit = ("apples",17,"bananas",9,"oranges","none"); 此语句创造的关系数组含有底下三个元素：下标为apples的元素，值为17 下标为bananas的元素，值为9 下标为oranges的元素，值为none 注：用列表给关系数组赋值时，perl5承诺运用"=>"或","来分割下标与值，用"=>"可读性更好些，上头语句等效于： %fruit = ("apples"=>17,"bananas"=>9,"oranges"=>"none");

perl实例分析教程之十一

相关推荐

推荐下载

热门阅览

最新排行