学习网址：http://www.cbi.pku.edu.cn/chinese/documents/perl/perl4.htm
数组和列表：
列表是包含在括号里的一序列的值：如：(1,5.3,"hello",2，$var)，空列表：()。
数组--列表的存贮:my @array=(1,2，$var); my @array=();
对数组中的值通过下标存取，第一个元素下标为0。不存在的数组元素结果为NULL，
如果给超出数组大小的元素赋值，则数组自动增长，原来没有的元素值为NULL。
my $vay_0 = $array[0];
数组对简单变量的赋值
my @array = (5,7);
????($var1,$var2,$var3) = @array; # $var1 = 5,$var2 = 7,$var3 ="" (null)
输出：print? TMP，“@array n”；
可以用子数组形式来交换元素：
????@array[1,2] = @array[2,1];
数组长度： my @array = (1,2,3);????$scalar = @array; # $scalar = 3,即@array的长度
??以数组的长度为循环次数可如下编程：
????$count = 1;
????while ($count <= @array) {
????print ("element $count: $array[$count-1]n");
????$count++;
????}
有关数组的库函数
sort--按字符顺序排序
????@array = ("this","is","a","test");
????@array2 = sort(@array); # @array2 = ("a","test","this")
????@array = (70,100,8);
????@array = sort(@array); # @array = (100,70,8) now
reverse--反转数组
????@array2 = reverse(@array);
????@array2 = reverse sort (@array);
chop--数组去尾
????chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到数组上，则将数组中每一个元素都做如此处理。
????@list = ("rabbit","12345","quartz");
????chop (@list); # @list = ("rabbi","1234","quart") now
join/split--连接/拆分
????join的第一个参数是连接所用的中间字符，其余则为待连接的字符数组。
????$string = join(" ","this","string"); # 结果为"this is a string"
????@list = ("words","and");
????$string = join("::",@list,"colons"); #结果为"words::and::colons"
????@array = split(/::/,$string); # @array = ("words","and","colons") now
关联数组/哈希表：
例子：
1 : #!/usr/local/bin/perl
2 :
3 : while ($inputline = <STDIN>) {
4 : ?? while ($inputline =~ /b[A-Z]S+/g) {? #b匹配单词边界：以[A-Z]开头的、S：非空白、+：多个匹配、
5 : ? ??? $word = $&;? #这个是什么意思（好像是当前匹配上的）
6 :?????? $word =~ s/[;.,:-]$//; # $:以[标点]结尾的标点用“代替”：去掉标点
7 : ? ??? for ($count = 1; $count <= @wordlist; $count++) {
8 :? ? ???? $found = 0;
9 : ? ????? if ($wordlist[$count-1] eq $word) {? #查看带单词是否出现过
10:??????????? $found = 1; #出现过的次数
11: ? ? ? ????? $wordcount[$count-1] += 1; #循环比较
12:? ? ? ????? last;
13: ? ? ??? }
14: ? ?? } #end for
15:???? if ($found == 0) { #记录新的
16: ? ? ? $oldlength = @wordlist;
17 ? ? ? $wordlist[$oldlength] = $word; #单词
18 ? ? ? $wordcount[$oldlength] = 1; #次数
19? ? }
20 ? }
21 } #end while
22 print ("Capitalized words and number of occurrences:n");
23 for ($count = 1; $count <= @wordlist; $count++) {
24 ? print ("$wordlist[$count-1]: $wordcount[$count-1]n");
25 }
哈希表：
关联数组的下标可以为任何简单/标量值，访问单个元素时以$符号打头，下标用大括号围起来
定义：%fruit :如语句$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)) { #使用了内嵌函数keys()。这个函数返回关联数组的下标列表
12: ? print ("$capword: $wordlist{$capword}n"); # 下标：值
13: }
创建关联数组：
例如：%fruit = ("apples"=>17,"bananas"=>9,"oranges"=>"none");
数组变量与关联数组：
????@fruit = ("apples",17,"bananas",9,"oranges","none");???%fruit = @fruit;? #元素数目应该为偶数
????反之?%fruit = ("grapes",11,"lemons",27);????@fruit = %fruit; #组之间顺序次序不确定
????关联数组变量之间可以直接赋值，如：%fruit2 = %fruit1;
??? 还可以把数组变量同时赋给一些简单变量和一个关联数组变量，如：
????($var1,%myarray) = @list;
????此语句把@list的第一个元素赋给$var1，第二个赋给$var2，其余的赋给%myarray。
例如：
1: #!/usr/local/bin/perl
2:
3: $inputline = <STDIN>;
4: $inputline =~ s/^s+|s+n$//g;
5: %fruit = split(/s+/,$inputline); #以空白分割行
6: print ("Number of bananas: $fruit{"bananas"}n");
删除元素：
除元素的方法是用内嵌函数delete则：delete ($fruit{"lime"});
注意：
1、一定要使用delete函数来删除关联数组的元素，这是唯一的方法。
2、一定不要对关联数组使用内嵌函数push、pop、shift及splice，因为其元素位置是随机的。
取下标和值：
%fruit = ("apples",23,"cherries",11); @fruitsubs = keys(%fruits); @fruitvalues = values(%fruits);???
????这里，@fruitsubs被赋给apples、bananas、cherries构成的列表，注意，此列表没有次序，若想按字母顺序排列，可使用sort()函数。
????@fruitindexes = sort keys(%fruits);??? 内嵌函数values()返回关联数组值的列表，@fruitvalues可能的结果为(9,23.11)，次序可能不同。
哈希循环each：
1:? %records = ("Maris",61,"Aaron",755,"Young",511);
2:? while (($holder,$record) = each(%records)) {
3:????????????? # stuff goes here
4:?? }
返回的最后一组是空元素，即结束。千万不能在each中做添加或删除操作
======================================================================
