perl笔记（2）-数据结构

学习网址：http://www.cbi.pku.edu.cn/chinese/documents/perl/perl4.htm

数组和列表：

列表是包含在括号里的一序列的值：如：(1, 5.3 , "hello" , 2，$var)，空列表：()。

数组--列表的存贮:my @array=(1, 5.3 , "hello" , 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","is", "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", "is","a", "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, $var2, %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", 9,"bananas", 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中做添加或删除操作

======================================================================