我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > CGI专区 > perl实例分析教程之十一
热门文章排行
热门文章排行 CGI教程：记录用户记录脚本之二(10-27)
跟我学Perl(6)(10-30)
跟我学Perl(4)(10-30)
CGI教程：调用CGI脚本文件的例子之四(10-27)
CGI教程：记录用户记录脚本之一(10-27)
精采文章排行
精采文章排行 实战 FastCGI_2. 安装 FastCGI之二(10-30)
实战 FastCGI_2. 安装 FastCGI之一(10-30)
实战 FastCGI_1.克服 CGI 的瓶颈(3)(10-30)
实战 FastCGI_1.克服 CGI 的瓶颈(2)(10-30)
实战 FastCGI_1.克服 CGI 的瓶颈(1)(10-30)
技术专题推荐
网管论坛交流
　

perl实例分析教程之十一 

作者:   来源:   点击:   日期:2006-10-30
四、增加元素

　　创建一个关联数组元素最简单的方法是赋值，如语句$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实例分析教程之十 ·perl实例分析教程之十二
·perl实例分析教程之九 ·perl实例分析教程之十三
·perl实例分析教程之八 ·perl实例分析教程之十四

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。