perl实例分析教程之十一-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

perl实例分析教程之十一

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　四、增加元素

　　创建一个关联数组元素最简单的方法是赋值，如语句$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");

喜欢本文，那就收藏到：