- 在关联数组中增加、更改一对数据：ARRAY={key}=value; 在关联数组ARRAY中加上一对 key-value，要在关联数组名称前加上 $ 号，而且 key 的名称要在 {} 符号之间，最后再指定 key 所对应的 value 值。如果在这个关联数组中已经有这个 key 了.就会更改这个 key 所对应的 value 。
- keys(%array) 操作符可生成由关联数组 %array 中的所有当前关键字组成的列表。即返回奇数号元素(第1,5,7...个)的列表。
- values(%array) 操作符返回由关联数组 %array 中所有当前值组成的列表，即返回偶数个列表。
- echo(%array) 操作符返回由 关键字/值对 构成的元素对列表。对同一数组再进行此操作时返回下一对值直至结束。若没有更多的对时，echo() 返回空表。 (这在打印全部列表中很有用)
- 删除一对在关联数组中的数据：delete $ARRAY{key}; delete 是 Perl 所提供的函数，作用是删除关联数组中的一个 key 以及这个 key 所对应的 value。使用方法是在 delete 函数之后，指定关联数组中要删除的 key 名称。
1 简单变量
Perl 的 Hello World 是怎么写的呢？请看下面的程序：
#!/usr/bin/perl
print "Hello World"
print "Hello World"
这个程序和前面 BASH 的 Hello World 程序几乎相同，只是第一行换成了 #!/usr/bin/perl ，还有显示的时候用的是 print，而不是 echo。有了前面 BASH 基础和 C 语言的基础，许多 Perl 的知识可以很容易的就看懂和记住，下面我们就从简单变量开始。
简单变量是标量，是 Perl 处理的最简单的数据类型。标量可以是数字(如2,3或2.5e6)， 也可以是字符串。Perl 中的标量变量以美元符号 "$" 和一个字母开始，后面可以跟字母、数字和下划线，Perl 的变量区分大小写，因此 $a 和 $A 是代表不同的变量。和 BASH 中不同的是 Perl 语言中的变量即使是在最初赋值的时候也必须在变量前面加上 "$" 符号，而且 Perl 不要求 "=" 左右必须没有空格。
虽然 Perl 中和 BASH 一样，没有变量类型的概念，我们还是可以把简单变量分为数值型和字符串型来理解。在赋值时，如果是赋值成字符串，则需要在字符串两边加上双引号（或单引号）；如果是数值则就不用了，而且 Perl 中还可以接受8/16（以0开头/以0x或0X开头）进制的整数，还可以接受如 2.5,-6.3e5,-2.3-e6 这样的浮点数。关于简单变量举例如下：
$a=23;
$a = "hello";
$a = 010;（表示十进制的 8）
$a = 0x10;
$a = 0X10;
$a = "hello";
$a = 010;（表示十进制的 8）
$a = 0x10;
$a = 0X10;
和 C 语言类似，在双引号之中可以用反斜杠表示一些特殊转义字符，见下表：
| 结 构 | 含 义 |
| \n | 换行 |
| \r | 回车 |
| \t | 水平置表符 |
| \f | 换页符 |
| \b | 退格 |
| \v | 垂直置表符 |
| \a | 响铃 |
| \e | Esc |
| \007 | 任一八进制ASCII值(这里007表示bell) |
| \x7f | 任一十六进制ASCII值 |
| \cC | 任一“控制”字符 |
| \\ | 反斜杠 |
| \" | 双引号 |
| \l | 下一字母小写 |
| \L | 以后所有字母小写直到\E |
| \u | 下一字母大写 |
| \U | 以后所有字母大写直到\E |
| \E | 结束\L和\U |
另外在 Perl 语言里，我们常会看到 my 这样的变量定义，如：
my $a = "local var";
这表示 $a 是一个程序块的局部变量。
2 数组
数组是标量数据的有序列表。数组可以含从 0 个元素大小 直到 你计算机内存可以支持的大小。数组用括号内以逗号分隔的一系列元素来表示。如：
@a=(1,2,3,4,5)
@a=("aka",1974,173.5)
@a=("aka",1974,173.5)
在 Perl 中对数组变量和前面的简单变量的存储是在不同的空间中，对数组的引用需要在变量前加 "@" 符号。
数组的赋值由下面几种用法需要注意：
| @a=(1,3); | # 初始化一个整数数组。 |
| $a=@a; | # 这里表示将数组 @a 的长度赋给 $a，此时 $a 和 @a 不是一个变量，他们不在一个存储空间里，引用时不会发生混淆。 |
| ($a,$b,$c)=(1,3); | # 这里表示将 1 赋给 $a；2 赋给 $b；3 赋给 $c； |
| @a=("a","b","c"); | # 初始化一个字符串数组。 |
| @b=@a; | # 表示把数组 @a 拷贝一份给数组 @b，@a 与 @b 不享有共同的存储空间，他们彼此分离。 |
| @c=(@a,@b); | # 表示数组 @c 拥有 @a 和 @b 的所有元素，仍然是一维数组，而不是发生了嵌套。 |
| ($a,@b)=@a; | # 表示变量 $a 等于数组 @a 的第一个元素，@b 拷贝了 @a 的剩余元素。 |
| @a=(); | # 表示产生或清空一个数组。 |
| ($a)=@b; | 变量 $a 等于数组 @b 的第一个元素的值。 |
| @b[i] | 引用数组 @b 的第 i 个元素。 |
| $b[i] | 如果 b 表示一个数组的话，其含义同上。 |
| $a[i,j]=[x,y] | 将数组 @a 的第 i 和第 j 个元素赋值为 x 和 y。 |
| @a[i,j]=@a[j,i] | 将数组 @a 的第 i 和第 j 个元素的值互相交换。 |
3 关联数组
关联数组是 Perl 语言中特有的一种数据结构，是一个功能强大的数组，他与普通数组的不同在于关联数组不是通过整数下标来索引，而是通过“键值”进行索引。使用关联数组需要在变量前面加上 "%" 号，关联数组的格式如：
ARRAY=(key1,value1,key2,value2,key3,value3);
上面每个 key 都对应着一个 value。关联数组是存在在另外一个存储空间中，不和简单变量以及数组相混淆。
对关联数组的操作有如下规则：
下面是一些关联数组操作的例子：
| %fred=(one,"aka",two,"free"); $a=$fred{one}; | # $a等于"aka" |
| $b=$fred{two}; | # $b等于"free" |
| $fred{two}="yes"; | # %fred=(one,"yes") |
| @index=keys(%fred); | # @index=(one,two) |
| @content=values(%fred); | # @content=("aka","yes") |
| ($index,$content)=echo(%fred); | # 此时 $index 的值为 one，$content 的值为 "aka"，再执行一次 $index 为值为 two，$name 的值为 "yes" |
| @a=%fred; | # 将关联数组 fred 指定给数组 a，这时 @a=(one,"yes") |
| %b=@a; | # 将数组 a 指定给关联数组 b，这时 %b=(one,"yes") |
| delete $fred{one}; | # 将关联数组中 key 值为 one 的一对 key-value 删除，这时 %fred=(two,"yes") |
| %x=(); | # 把 %x 关联数组置空 |
4 各种运算符号汇总
赋值(Assignment)运算符
算术(Arithmetic)运算符
数值(Numeric Values)关系运算符
字符串(String Values)关系运算符
逻辑(Logical)运算
其它常用的运算符
常用的文件数据(File Test)运算符
来自： http://developer.51cto.com/art/200509/2546.htm
算术(Arithmetic)运算符
数值(Numeric Values)关系运算符
字符串(String Values)关系运算符
逻辑(Logical)运算
其它常用的运算符
常用的文件数据(File Test)运算符
|
赋值(Assignment)运算符 |
||
| 符号 | 范例 | 说明 |
| = | $x=$y; | 将$x的值指派给$y |
| += | $x+=$y; $x=$x+$y; |
将$x加$y之后再指派给$x |
| -= | $x-=$y; $x=$x-$y; |
将$x减$y之后再指派给$x |
| *= | $x*=$y; $x=$x*$y; |
将$x乘$y之后再指派给$x |
| /= | $x/=$y; $x=$x/$y; |
求出$x除以$y之后的商数,再指派给$x |
| **= | $x**=$y; $x=$x**$y; |
将$x乘上$y次方之后再指派给$x |
| %= | $x%=$y; $x=$x%$y; |
求出$x除以$y的余数以后,再指派给$x |
| .= | $str1.=$str2; $str1=$str1.$str2; |
将$str1这个字符串再加上$str2这个字符串之后,再指派给$str1这个字符串 |
| x= | $strx=$y; $str=$strx$y; |
重复$str字符串$y次,并反结果指派给str这个字符串 |
|
算术(Arithmetic)运算符 |
||
| 符号 | 范例 | 说明 |
| + | $z=$x+$y | 将$x和$y相加之后,再将结果指派给$z |
| - | $z=$x-$y | 将$x减掉$y之后,再将结果指派给$z |
| * | $z=$x*$y | 将$x和$y相乘之后,再将结果指派给$z |
| / | $z=$x/$y | 将$x除以$y之后,再将商数指派给$z |
| % | $z=$x%$y | 将$x除以$y之后,再将余数指派给$z |
| ** | $z=$x**$y | 将$x乘以$y之后,再将结果指派给$z |
| ++ | $x++;++$x; | 如同$x=$x++1;将$x加一以后再将结果指派给$x |
| -- | $x--;--$x; | 如同$x=$x-1;将$x减一以后再将结果指派给$x |
| . | $z=$x.$y; | 将$x字符串和$y字符串连接之后,再将结果指派给$z |
|
数值(Numeric Values)关系运算符 |
||
| 符号 | 范例 | 说明 |
| > | $x>$y | 如果$x大于$y,返回1的值,否则返回0 |
| >= | $x>=$y | 如果$x大于等于$y,否则返回0 |
| < | $x<$y | 如果$x小于$y,否则返回0 |
| <= | $x<=$y | 如果$x小于等于$y,否则返回0 |
| == | $x==$y | 如果$x等于$y,否则返回0 |
| != | $x!=$y | 如果$x不等于$y,否则返回0 |
| <=> | $x<=>$y | 如果$x大于$y,如果$x等于$y,否则返回0;&127;如果 $x小于$y,则返回-1的值 |
|
字符串(String Values)关系运算符 |
||
| 符号 | 范例 | 说明 |
| gt | $str1 gt $str2 | 如果$str1大于$str2,否则返回0 |
| ge | $str1 ge $str2 | 如果$str1大于等于$str2,否则返回0 |
| lt | $str1 lt $str2 | 如果$str1小于$str2,否则返回0 |
| le | $str1 le $str2 | 如果$str1小于等于$str2,否则返回0 |
| eq | $str1 ep $str2 | 如果$str1等于$str2,否则返回0 |
| ne | $str1 ne $str2 | 如果$str1不等于$str2,否则返回0 |
| cmp | $str1 cmp $str2 | 如果$str1大于$str2,如果$str1等于$str2,返回0,如果$str1小于$str2,则返回-1的值 |
|
逻辑(Logical)运算
1) $x && $y(And)
$x
$y
结果
真(True) 真(True) 真(True)
真(True) 假(False) 真(True)
假(False) 真(True) 假(False)
假(False) 假(False) 假(False)
2) $x || $y(Or)
$x
$y
结果
真(True) 真(True) 真(True)
真(True) 假(False) 真(True)
假(False) 真(True) 真(True)
假(False) 假(False) 假(False)
3) $x(Not)
$x
结果
真(True) 假(False)
假(False) 真(True)
|
||
|
其它常用的运算符
指令:..区块运算符(Range Operator)
说明:这个运算符是 Perl 语言中特有的运算符，是一个很实用的运算符。
范例:
@digits=(1..9); # 此时 @digits=(1,6,7,8,9);
@digits=('01'..'05'); # 此时 @digits=(01,02,03,04,05); @char=('A'..'E'); # 此时 @char('A','B','C','D','E',); @total=(1..3,'A'..'B'); # 此时 @total=(1,3'A','B');
指令: 条件运算符(Conditional Operator)
说明: （判别运算式? 运算式1: 运算式2）这个语法的意义和C语言一样：如果判别运算式的值是真(True)的话，则做运算式 1 的运算；如果判别运算式是假(False)的话，则做运算式 2 的运算。
范例:
$price = ($age>60)? 100:200;
如果 $age 大于60的话，则$price等于100，否则$price等于200。 |
||
|
常用的文件数据(File test)运算符 |
||
| 范例 | 说明 | |
| -r $file | 如果 $file 是可读取的话，返回 1 | |
| -w $file | 如果 $file 是可写入的话，返回 1 | |
| -x $file | 如果 $file 是可执行的话，返回 1 | |
| -e $file | 如果 $file 存在的话，返回 1 | |
| -s $file | 返回 $file 的文件大小(bytes) | |
| -f $file | 如果 $file 是正常文件的话，返回 1 | |
| -T $file | 如果 $file 是文本文件的话，返回 1 | |
| -B $file | 如果 $file 是Binary文件的话，返回 1 | |
| -M $file | 返回 $file 文件最后一次更改时间到现在的日期数 | |
来自： http://developer.51cto.com/art/200509/2546.htm
@H_301_979@