第三章　操作符

■【算術操作符】

　　 +(加)、-(減)、*(乘)、/(除)、**(乘冪)、%(取余)、-(單目負)
　(1)乘冪的基數不能為負，如 (-5) ** 2.5 # error；
　(2)乘冪結果不能超出計算機表示的限製，如10 ** 999999 # error
　(3)取余的操作數如不是整數，四舍五入成整數后運算；運算符右側不能為零
　(4)單目負可用於變量︰ - $y ; # 等效於 $y * -1

■【整數比較操作符】

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

　操作符<=>結果為︰
　　0 - 兩個值相等
　　1 - 第一個值大
　　1 - 第二個值大

■【字符串比較操作符】

操作符	描述
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將會把它們轉化為無符號數。

■【賦值操作符】

賦值操作符︰

操作符	描述
=	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

賦值操作符例子︰

表達式	等效表達式
`$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;`

　=可在一個賦值語句中出現多次，如︰
　　$value1 = $value2 = "a string"; 　=作為子表達式
　　($a = $b) += 3;
　等價於
　$a = $b;
　$a += 3;
　但建議不要使用這種方式。

■【自增自減操作符】

　　++、--(與C++中的用法相同)
　不要在變量兩邊都使用此種操作符︰++$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++;

■【字符串聯結和重複操作符】

聯接: .
　重複︰x
　聯接且賦值(類似+=)︰ .=
例︰
　$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;

■【操作符的次序】

操作符的次序︰

操作符	描述
`++`, `--`	自增，自減
`-`, `~`, `!`	單目
`**`	乘方
`=~`, `!~`	模式匹配
`*`, `/`, `%`, `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)︰

操作符	結合性
`++`, `--`	無
`-`, `~`, `!`	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

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