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,2,3); | # 初始化一个整数数组。 |
$a=@a; | # 这里表示将数组 @a 的长度赋给 $a,此时 $a 和 @a 不是一个变量,他们不在一个存储空间里,引用时不会发生混淆。 |
($a, $b, $c)=(1,2,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。关联数组是存在在另外一个存储空间中,不和简单变量以及数组相混淆。
对关联数组的操作有如下规则:
- 在关联数组中增加、更改一对数据:ARRAY={key}=value; 在关联数组ARRAY中加上一对 key-value,要在关联数组名称前加上 $ 号,而且 key 的名称要在 {} 符号之间,最后再指定 key 所对应的 value 值。如果在这个关联数组中已经有这个 key 了.就会更改这个 key 所对应的 value 。
- keys(%array) 操作符可生成由关联数组 %array 中的所有当前关键字组成的列表。即返回奇数号元素(第1,3,5,7...个)的列表。
- values(%array) 操作符返回由关联数组 %array 中所有当前值组成的列表,即返回偶数个列表。
- echo(%array) 操作符返回由 关键字/值对 构成的元素对列表。对同一数组再进行此操作时返回下一对值直至结束。若没有更多的对时,echo() 返回空表。 (这在打印全部列表中很有用)
- 删除一对在关联数组中的数据:delete $ARRAY{key}; delete 是 Perl 所提供的函数,作用是删除关联数组中的一个 key 以及这个 key 所对应的 value。使用方法是在 delete 函数之后,指定关联数组中要删除的 key 名称。
下面是一些关联数组操作的例子:
%fred=(one,"aka",two,"free"); $a=$fred{one}; | # $a等于"aka" |
$b=$fred{two}; | # $b等于"free" |
$fred{two}="yes"; | # %fred=(one,"aka",two,"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,"aka",two,"yes") |
%b=@a; | # 将数组 a 指定给关联数组 b,这时 %b=(one,"aka",two,"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,返回1的值,否则返回0 |
< | $x<$y | 如果$x小于$y,返回1的值,否则返回0 |
<= | $x<=$y | 如果$x小于等于$y,返回1的值,否则返回0 |
== | $x==$y | 如果$x等于$y,返回1的值,否则返回0 |
!= | $x!=$y | 如果$x不等于$y,返回1的值,否则返回0 |
<=> | $x<=>$y | 如果$x大于$y,返回1的值,如果$x等于$y,否则返回0;&127;如果 $x小于$y,则返回-1的值 |
字符串(String Values)关系运算符 | ||
符号 | 范例 | 说明 |
gt | $str1 gt $str2 | 如果$str1大于$str2,返回1的值,否则返回0 |
ge | $str1 ge $str2 | 如果$str1大于等于$str2,返回1的值,否则返回0 |
lt | $str1 lt $str2 | 如果$str1小于$str2,返回1的值,否则返回0 |
le | $str1 le $str2 | 如果$str1小于等于$str2,返回1的值,否则返回0 |
eq | $str1 ep $str2 | 如果$str1等于$str2,返回1的值,否则返回0 |
ne | $str1 ne $str2 | 如果$str1不等于$str2,返回1的值,否则返回0 |
cmp | $str1 cmp $str2 | 如果$str1大于$str2,返回1的值,如果$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,2,3,4,5,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,2,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
0
收藏
转载于:https://blog.51cto.com/kongjie/342825
Ctrl+Enter 发布
发布
取消