perl 5基礎(chǔ)教程——運(yùn)算符

2020-02-23 19:47:13

字體：大中小

供稿：網(wǎng)友

本文將給各位講述perl 5基礎(chǔ)教程——運(yùn)算符，Perl語(yǔ)言中Perl運(yùn)算符有很多值得學(xué)習(xí)的地方，這里和大家分享一下它的概念和用法，需要的朋友可以參考借鑒，下面來(lái)一起看看吧。

一、算術(shù)運(yùn)算符：+(加)、-(減)、*(乘)、/(除)、**(乘冪)、%(取余)、-(單目負(fù))

? (1)乘冪的基數(shù)不能為負(fù)，如 (-5) ** 2.5 # error；
? (2)乘冪結(jié)果不能超出計(jì)算機(jī)表示的限制，如10 ** 999999 # error
? (3)取余的操作數(shù)如不是整數(shù)，四舍五入成整數(shù)后運(yùn)算；運(yùn)算符右側(cè)不能為零
? (4)單目負(fù)可用于變量： - $y ; # 等效于 $y * -1
? (5)對(duì)應(yīng)有 +=、-=、*=、/=、**=、%=

二、整數(shù)比較運(yùn)算符

Table 1. 整數(shù)比較運(yùn)算符

操作符	描述
<	小于
>	大于
==	等于
<=	小于等于
>=	大于等于
!=	不等于
<=>	比較，返回 1, 0,?-1

操作符<=>結(jié)果為：
0 - 兩個(gè)值相等
1 - 第一個(gè)值大
1 - 第二個(gè)值大

三、字符串比較運(yùn)算符

Table 2. 字符串比較運(yùn)算符

操作符	描述
`lt`	小于
`gt`	大于
`eq`	等于
`le`	小于等于
`ge`	大于等于
`ne`	不等于
`cmp`	比較，返回 1, 0, or -1

四、邏輯運(yùn)算符

邏輯或：$a || $b 或 $a or $b
邏輯與：$a && $b 或 $a and $b
邏輯非：! $a 或 not $a
邏輯異或：$a xor $b

五、位運(yùn)算符

位與：&
位或：|
位非：~
位異或：^
左移：$x << 1
右移：$x >> 2
注：不要將&用于負(fù)整數(shù)，因?yàn)镻ERL將會(huì)把它們轉(zhuǎn)化為無(wú)符號(hào)數(shù)。

六、賦值運(yùn)算符

Table 3. 賦值運(yùn)算符

操作符	描述
=	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. 賦值運(yùn)算符例子

表達(dá)式	等效表達(dá)式
`$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. =可在一個(gè)賦值語(yǔ)句中出現(xiàn)多次，如：
? $value1 = $value2 = "a string";
2. =作為子表達(dá)式
? ($a = $b) += 3;
? 等價(jià)于
? $a = $b;
? $a += 3;

七、自增自減運(yùn)算符：++、--

.不要在變量?jī)蛇叾际褂么朔N操作符：++$var-- # error
.不要在變量自增/減后在同一表達(dá)式中再次使用：$var2?? = $var1 + ++$var1; # error
.在PERL中++可用于字符串，但當(dāng)結(jié)尾字符為'z'、'Z'、'9'時(shí)進(jìn)位，如：
? $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將先將字符串轉(zhuǎn)換為數(shù)字再進(jìn)行自減
? $stringvar = "abc";
? $stringvar--; # $stringvar = -1 now

.如果字符串中含有非字母且非數(shù)字的字符，或數(shù)字位于字母中，則經(jīng)過(guò)++運(yùn)算前值轉(zhuǎn)換為數(shù)字零，因此結(jié)果為1，如：
? $stringvar = "ab*c";
? $stringvar++;
? $stringvar = "ab5c";
? $stringvar++;

八、字符串聯(lián)結(jié)和重復(fù)運(yùn)算符

? 1. 聯(lián)接: .
? 2. 重復(fù)：x
? 3. 聯(lián)接且賦值(類似+=)： .=
例：
? $newstring = "potato" . "head";
? $newstring = "t" x 5;
? $a = "be";
? $a .= "witched"; # $a is now "bewitched"

九、逗號(hào)運(yùn)算符

? 其前面的表達(dá)式先進(jìn)行運(yùn)算，如：
? $var1 += 1, $var2 = $var1;
? 等價(jià)于
? $var1 += 1;
? $var2 = $var1;
? 使用此操作符的唯一理由是提高程序的可讀性，將關(guān)系密切的兩個(gè)表達(dá)式結(jié)合在一起，如：
? $val = 26;
? $result = (++$val, $val + 5); # $result = 32
? 注意如果此處沒有括號(hào)則意義不同：
? $val = 26;
? $result = ++$val, $val + 5; # $result = 27

十、條件運(yùn)算符

? 與C中類似，條件?值1:值2，當(dāng)條件為真時(shí)取值1，為假時(shí)取值2，如：
? $result = $var == 0 ? 14 : 7;
? $result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);
? PERL 5中，還可以在賦值式左邊使用條件操作符來(lái)選擇被賦值的變量，如：
? $condvar == 43 ? $var1 : $var2 = 14;
? $condvar == 43 ? $var1 = 14 : $var2 = 14;

十一、運(yùn)算符的優(yōu)先級(jí)

Table 5. 運(yùn)算符的優(yōu)先級(jí)

操作符	描述
`++`,?`--`	自增，自減
`-`,?`~`,?`!`	單目
`**`	乘方
`=~`,?`!~`	模式匹配
`*`,?`/`,?`%`,?`x`	乘，除，取余，重復(fù)
`+`,?`-`,?`.`	加，減，聯(lián)接
`<<`,?`>>`	移位
`-e`,?`-r`, etc.	文件狀態(tài)
`<`,?`<=`,?`>`,?`>=`,?`lt`,?`le`,?`gt`,?`ge`	不等比較
`==`,?`!=`,?`<=>`,?`eq`,?`ne`,?`cmp`	相等比較
`&`	位與
`\|`,?`^`	位或，位異或
`&&`	邏輯與
`\|\|`	邏輯或
`..`	列表范圍
`?`?and?`:`	條件操作符
`=`,?`+=`,?`-=`,?`*=`,	賦值
and so on
`,`	逗號(hào)操作符
`not`	Low-precedence logical NOT
`and`	Low-precedence logical AND
`or`,?`xor`	Low-precedence logical OR and XOR

運(yùn)算符結(jié)合性(associativity)：

Table 6. 運(yùn)算符結(jié)合性

操作符	結(jié)合性
`++`,?`--`	無(wú)
`-`,?`~`,?`!`	Right-to-left
`**`	Right-to-left
`=~`,?`!~`	Left-to-right
`*`,?`/`,?`%`,?`x`	Left-to-right
`+`,?`-`,?`.`	Left-to-right
`<<`,?`>>`	Left-to-right
`-e`,?`-r`,	無(wú)
`<`,?`<=`,?`>`,?`>=`,?`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運(yùn)算符簡(jiǎn)單應(yīng)用

一、賦值（Assignment）運(yùn)算符

符號(hào)	范例	說(shuō)明
=	$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的余數(shù)后再賦值給$x
.=	$str1.=$str2;	$str1=$str1.$str2;把$str1這個(gè)字符串再加上$str2這個(gè)字符串后再賦值給$str這個(gè)字符串
x=	$str x=$y;	$str=$str x $y;循環(huán)$str字符$y次再把結(jié)果賦值給 $str這個(gè)字符串

二、運(yùn)算（Arithmetic）運(yùn)算符

符號(hào)	范例	說(shuō)明
+	$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除后再余數(shù)賦值給$a
**	$a=$x**$y	把$x和$y乘次方后再賦值給$a
++	$x++;++$x	把$x加一后再賦值給$x
--	$x--;--$x	把$x減一后再賦值給$x
.	$a=$x.$y	把$x字符串和$y字符串合拼后再賦值給$a

三、數(shù)值（Number Values）運(yùn)算符

符號(hào)	范例	說(shuō)明
>	$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）運(yùn)算符

符號(hào)	范例	說(shuō)明
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）運(yùn)算符
1.$x && $y(AND)

$x	$y	結(jié)果
真(True)	真(True)	真(True)
真(True)	假(False)	假(False)
假(False)	真(True)	假(False)
假(False)	假(False)	假(False)

1.$x || $y(OR)

$x	$y	結(jié)果
真(True)	真(True)	真(True)
真(True)	假(False)	真(True)
假(False)	真(True)	真(True)
假(False)	假(False)	假(False)

1.! $x(Not)

$x	結(jié)果
真(True)	假(False)
假(False)	真(True)

六、其他運(yùn)算符

指令：	..區(qū)域運(yùn)算符（Range Operator）
說(shuō)明：	這個(gè)運(yùn)算符是Perl語(yǔ)言中特別有用運(yùn)算符且很實(shí)用。
范例：	?	?
?	@digits=(1..9);	#這時(shí)@digits=(1,2,3,4,5,6,7,8,9);
?	@digits=('01'..'05');	#這時(shí)@digits=(01,02,03,04,05);
?	@char=('A'..'E');	#這時(shí)@char=(A,B,C,D,E);
?	@total=(1..3,'A'..'B');	#這時(shí)@totalr=(1,2,3'A','B');

指令：	判斷運(yùn)算式？運(yùn)算式1：運(yùn)算式2條件運(yùn)算符
說(shuō)明：	這個(gè)運(yùn)算符的意義和C語(yǔ)言一樣，如果判斷運(yùn)算式的值是真的話，則做運(yùn)算1的運(yùn)算，如果判斷運(yùn)算式是假的話，則做運(yùn)算式 2的運(yùn)算。
范例：	?	?
?	$price=($age>60)?100:200;
?	如果$age大于60的話，則$price等于100;否則$price等于200。

七、常用的文件數(shù)據(jù)(File test)運(yùn)算符

范例	說(shuō)明
-r $file	如果$file是可讀取的話，返回1的值
-w $file	如果$file是可寫入的話，返回1的值
-x $file	如果$file是可執(zhí)行的話，返回1的值
-e $file	如果$file存在的話，返回1的值
-o $file	如果$file是被執(zhí)行者所擁有的話，返回1的值
-s $file	返回$file的文件大小(bytes)
-f $file	如果$file是正常文件的話，返回1的值
-t $file	如果$file是文本文件的話，返回1的值
-b $file	如果$file是binary文件的話，返回1的值
-m $file	返回文件最后一次更改時(shí)間到現(xiàn)在的日期數(shù)