perl脚本——几种基本变量

[置顶]
$v 普通变量
@arr 数组变量
%arr 关联数组 格式：%ARRAY=(key1,value1,key2,value2,key3,value3);

perl学习
（每天进步一点点）

[b]几种基本变量（变量、数组和散列）[/b]
标量定义，以$号开头，如：$num =1;
　　数组定义，以@开头，如：@array = (1,2,3);
　　数组元素调用 @array[index]，其中index表示数组下标，如上例，@array[0]的值是1
　　散列定义，以%开头，如：%hash=("a",1,"b",2);
　　散列调用 %hash，其中keys表示键值，多用字符串表示，注意hash的key必须具有唯一性，但value可以不唯一，为此hash的key经常被用来做唯一化处理，如上例中的"a", "b", vaules是keys对应的值，如1，2。$hash{"b"}的值是2。


[b]一、数组——较简单[/b]


[b]二、关联数组——本质是hash存储[/b]
1，创建关联数组
可以用单个赋值语句创建关联数组，如：
%fruit = ("apples",17,"bananas",9,"oranges","none");
此语句创建的关联数组含有下面三个元素：

下标为apples的元素，值为17
下标为bananas的元素，值为9
下标为oranges的元素，值为none

注：用列表给关联数组赋值时，Perl5允许使用"=>"或","来分隔下标与值，用"=>"可读性更好些，上面语句等效于：
%fruit = ("apples"=>17,"bananas"=>9,"oranges"=>"none");


2，从数组变量复制到关联数组
与列表一样，也可以通过数组变量创建关联数组，当然，其元素数目应该为偶数，如：
@fruit = ("apples",17,"bananas",9,"oranges","none");
%fruit = @fruit;
反之，可以把关联数组赋给数组变量，如：
%fruit = ("grapes",11,"lemons",27);
@fruit = %fruit;
注意，此语句中元素次序未定义，那么数组变量@fruit可能为("grapes",11,"lemons",27)或

("lemons",27,"grapes",11)。
关联数组变量之间可以直接赋值，如：%fruit2 = %fruit1; 还可以把数组变量同时赋给一些简单变量和一个关联数组变量，如：
($var1, $var2, %myarray) = @list;
此语句把@list的第一个元素赋给$var1，第二个赋给$var2，其余的赋给%myarray。
最后，关联数组可以通过返回值为列表的内嵌函数或用户定义的子程序来创建，下例中把split()函数的返回值--一个列表--赋给一个关联数组变量。

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");

运行结果如下：

oranges 5 apples 7 bananas 11 cherries 6
Number of bananas: 11

3，元素的增删
增加元素已经讲过，可以通过给一个未出现过的元素赋值来向关联数组中增加新元素，如$fruit{"lime"} = 1;创建下标为lime、值为1的新元素。
删除元素的方法是用内嵌函数delete，如欲删除上述元素，则：
delete ($fruit{"lime"});
注意：
(1) 一定要使用delete函数来删除关联数组的元素，这是唯一的方法。
(2) 一定不要对关联数组使用内嵌函数push、pop、shift及splice，因为其元素位置是随机的。

4，列出数组的索引和值
上面已经提到，keys()函数返回关联数组下标的列表，如：

%fruit = ("apples", 9,
"bananas", 23,
"cherries", 11);
@fruitsubs = keys(%fruits);

这里，@fruitsubs被赋给apples、bananas、cherries构成的列表，再次提请注意，此列表没有次序，若想按字母顺序排列，可使用sort()函数。
@fruitindexes = sort keys(%fruits);
这样结果为("apples","bananas","cherries")。类似的，内嵌函数values()返回关联数组值的列表，如：

%fruit = ("apples", 9,
"bananas", 23,
"cherries", 11);
@fruitvalues = values(%fruits);

这里，@fruitvalues可能的结果为(9,23,11)，次序可能不同。

5，用关联数组循环
Perl提供一种更有效的循环方式，使用内嵌函数each()，如：

%records = ("Maris", 61, "Aaron", 755, "Young", 511);
while (($holder, $record) = each(%records)) {
# stuff goes here
}

6，用关联数组创建数据结构
用关联数组可以模拟在其它高级语言中常见的多种数据结构，例如：链表、结构和树。
例：(单)链表
链表是一种比较简单的数据结构，可以按一定的次序存贮值。每个元素含有两个域，一个是值，一个是引用（或称指针），指向链表中下一个元素。一个特殊的头指针指向链表的第一个元素。
在Perl中，链表很容易用关联数组实现，因为一个元素的值可以作为下一个元素的索引。下例为按字母顺序排列的单词链表：

%words = ("abel", "baker",
"baker", "charlie",
"charlie", "delta",
"delta", "");
$header = "abel";

上例中，简单变量$header含有链表中第一个单词，它同时也是关联数组第一个元素的下标，其值baker又是下一个元素的下标，依此类推。
下标为delta的最后一个元素的值为空串，表示链表的结束。
在将要处理的数据个数未知或其随程序运行而增长的情况下，链表十分有用。