perl运算符使用介绍与简单应用
perl 5基础教程——运算符
一、算术运算符 :+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)
(1)乘幂的基数不能为负,如 (-5) ** 2.5 # error;
(2)乘幂结果不能超出计算机表示的限制,如10 ** 999999 # error
(3)取余的操作数如不是整数,四舍五入成整数后运算;运算符右侧不能为零
(4)单目负可用于变量: - $y ; # 等效于 $y * -1
(5)对应有 +=、-=、*=、/=、**=、%=
二、整数比较运算符
table 1. 整数比较运算符
操作符
描述
<
小于
>
大于
==
等于
<=
小于等于
>=
大于等于
!=
不等于
<=>
比较,返回 1, 0, -1
操作符<=>结果为:
0 - 两个值相等
1 - 第一个值大
1 - 第二个值大
三、字符串比较运算符
table 2. 字符串比较运算符
操作符
描述
lt
小于
gt
大于
eq
等于
le
小于等于
ge
大于等于
ne
不等于
cmp
比较,返回 1, 0, or -1
四、逻辑运算符
逻辑或:$a || $b 或 $a or $b
逻辑与:$a && $b 或 $a and $b
逻辑非:! $a 或 not $a
逻辑异或:$a xor $b
五、位运算符
位与:&
位或:|
位非:~
位异或:^
左移:$x << 1
右移:$x >> 2
注:不要将&用于负整数,因为perl将会把它们转化为无符号数。
六、赋值运算符
table 3. 赋值运算符
操作符
描述
=
assignment only
+=
addition and assignment
-=
subtraction and assignment
*=
multiplication and assignment
/=
division and assignment
%=
remainder and assignment
**=
exponentiation and assignment
&=
bitwise and and assignment
|=
bitwise or and assignment
^=
bitwise xor and assignment
table 4. 赋值运算符例子
表达式
等效表达式
$a = 1;
none (basic assignment)
$a -= 1;
$a = $a - 1;
$a *= 2;
$a = $a * 2;
$a /= 2;
$a = $a / 2;
$a %= 2;
$a = $a % 2;
$a **= 2;
$a = $a ** 2;
$a &= 2;
$a = $a & 2;
$a |= 2;
$a = $a | 2;
$a ^= 2;
$a = $a ^ 2;
注:
1. =可在一个赋值语句中出现多次,如:
$value1 = $value2 = "a string";
2. =作为子表达式
($a = $b) += 3;
等价于
$a = $b;
$a += 3;
七、自增自减运算符 :++、--
.不要在变量两边都使用此种操作符:++$var-- # error
.不要在变量自增/减后在同一表达式中再次使用:$var2 = $var1 + ++$var1; # error
.在perl中++可用于字符串,但当结尾字符为'z'、'z'、'9'时进位,如:
$stringvar = "abc";
$stringvar++; # $stringvar contains "abd" now
$stringvar = "abc";
$stringvar++; # $stringvar contains "abd" now
$stringvar = "abz";
$stringvar++; # $stringvar now contains "aca"
$stringvar = "agzzz";
$stringvar++; # $stringvar now contains "ahaaa"
$stringvar = "ab4";
$stringvar++; # $stringvar now contains "ab5"
$stringvar = "bc999";
$stringvar++; # $stringvar now contains "bd000"
.不要使用--,perl将先将字符串转换为数字再进行自减
$stringvar = "abc";
$stringvar--; # $stringvar = -1 now
.如果字符串中含有非字母且非数字的字符,或数字位于字母中,则经过++运算前值转换为数字零,因此结果为1,如:
$stringvar = "ab*c";
$stringvar++;
$stringvar = "ab5c";
$stringvar++;
八、字符串联结和重复运算符
1. 联接: .
2. 重复:x
3. 联接且赋值(类似+=): .=
例:
$newstring = "potato" . "head";
$newstring = "t" x 5;
$a = "be";
$a .= "witched"; # $a is now "bewitched"
九、逗号运算符
其前面的表达式先进行运算,如:
$var1 += 1, $var2 = $var1;
等价于
$var1 += 1;
$var2 = $var1;
使用此操作符的唯一理由是提高程序的可读性,将关系密切的两个表达式结合在一起,如:
$val = 26;
$result = (++$val, $val + 5); # $result = 32
注意如果此处没有括号则意义不同:
$val = 26;
$result = ++$val, $val + 5; # $result = 27
十、条件运算符
与c中类似,条件?值1:值2,当条件为真时取值1,为假时取值2,如:
$result = $var == 0 ? 14 : 7;
$result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);
perl 5中,还可以在赋值式左边使用条件操作符来选择被赋值的变量,如:
$condvar == 43 ? $var1 : $var2 = 14;
$condvar == 43 ? $var1 = 14 : $var2 = 14;
十一、运算符的优先级
table 5. 运算符的优先级
操作符
描述
++, --
自增,自减
-, ~, !
单目
**
乘方
=~, !~
模式匹配
*, /, %, x
乘,除,取余,重复
+, -, .
加,减,联接
<<, >>
移位
-e, -r, etc.
文件状态
<, <=, >, >=, lt, le, gt, ge
不等比较
==, !=, <=>, eq, ne, cmp
相等比较
&
位与
|, ^
位或,位异或
&&
逻辑与
||
逻辑或
..
列表范围
? and :
条件操作符
=, +=, -=, *=,
赋值
and so on
,
逗号操作符
not
low-precedence logical not
and
low-precedence logical and
or, xor
low-precedence logical or and xor
运算符结合性(associativity):
table 6. 运算符结合性
操作符
结合性
++, --
无
-, ~, !
right-to-left
**
right-to-left
=~, !~
left-to-right
*, /, %, x
left-to-right
+, -, .
left-to-right
<<, >>
left-to-right
-e, -r,
无
<, <=, >, >=, lt, le, gt, ge
left-to-right
==, !=, <=>, eq, ne, cmp
left-to-right
&
left-to-right
|, ^
left-to-right
&&
left-to-right
||
left-to-right
..
left-to-right
? and :
right-to-left
=, +=, -=, *=,
right-to-left
and so on
,
left-to-right
not
left-to-right
and
left-to-right
or, xor
left-to-right
perl运算符简单应用
一、赋值(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这个字符串后再赋值给$str这个字符 串 |
x= | $str x=$y; | $str=$str x $y;循环$str字符$y次再把结果赋值给 $str这个字符串 |
二、运算(arithmetic)运算符
符号 | 范例 | 说明 |
+ | $a=$x+$y | 把$x和$y加后再赋值给$a |
- | $a=$x+$y | 把$x和$y减后再赋值给$a |
* | $a=$x*$y | 把$x和$y乘后再赋值给$a |
/ | $a=$x/$y | 把$x和$y除后再赋值给$a |
% | $a=$x%$y | 把$x和$y除后再余数赋值给$a |
** | $a=$x**$y | 把$x和$y乘次方后再赋值给$a |
++ | $x++;++$x | 把$x加一后再赋值给$x |
-- | $x--;--$x | 把$x减一后再赋值给$x |
. | $a=$x.$y | 把$x字符串和$y字符串合拼后再赋值给$a |
三、数值(number 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; 如果$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 eq $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) | 假(false) |
假(false) | 真(true) | 假(false) |
假(false) | 假(false) | 假(false) |
1.$x || $y(or)
$x | $y | 结果 |
真(true) | 真(true) | 真(true) |
真(true) | 假(false) | 真(true) |
假(false) | 真(true) | 真(true) |
假(false) | 假(false) | 假(false) |
1.! $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'); | #这时@totalr=(1,2,3'a','b'); |
指令: | 判断运算式?运算式1:运算式2条件运算符 | |
说明: | 这个运算符的意义和c语言一样,如果判断运算式的值是真的 话,则做运算1的运算,如果判断运算式是假的话,则做运算式 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的值 |
-o $file | 如果$file是被执行者所拥有的话,返回1的值 |
-s $file | 返回$file的文件大小(bytes) |
-f $file | 如果$file是正常文件的话,返回1的值 |
-t $file | 如果$file是文本文件的话,返回1的值 |
-b $file | 如果$file是binary文件的话,返回1的值 |
-m $file | 返回文件最后一次更改时间到现在的日期数 |
上一篇: perl 文件测试操作符汇总