perl運算符使用介紹與簡單應用
perl 5基礎教程——運算符
一、算術運算符 ：+(加)、-(減)、*(乘)、/(除)、**(乘冪)、%(取余)、-(單目負)
(1)乘冪的基數(shù)不能為負，如 (-5) ** 2.5 # error；
(2)乘冪結果不能超出計算機表示的限制，如10 ** 999999 # error
(3)取余的操作數(shù)如不是整數(shù)，四舍五入成整數(shù)后運算；運算符右側不能為零
(4)單目負可用于變量： - $y ; # 等效于 $y * -1
(5)對應有 +=、-=、*=、/=、**=、%=
二、整數(shù)比較運算符
Table 1. 整數(shù)比較運算符
| 操作符 | 描述 |
| < | 小于 |
| > | 大于 |
| == | 等于 |
| <= | 小于等于 |
| >= | 大于等于 |
| != | 不等于 |
| <=> | 比較，返回 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
注：不要將&用于負整數(shù)，因為PERL將會把它們轉化為無符號數(shù)。
六、賦值運算符
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. =可在一個賦值語句中出現(xiàn)多次，如：
$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將先將字符串轉換為數(shù)字再進行自減
$stringvar = "abc";
$stringvar--; # $stringvar = -1 now
.如果字符串中含有非字母且非數(shù)字的字符，或數(shù)字位于字母中，則經過++運算前值轉換為數(shù)字零，因此結果為1，如：
$stringvar = "ab*c";
$stringvar++;
$stringvar = "ab5c";
$stringvar++;
八、字符串聯(lián)結和重復運算符
1. 聯(lián)接: .
2. 重復：x
3. 聯(lián)接且賦值(類似+=)： .=
例：
$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;
十一、運算符的優(yōu)先級
Table 5. 運算符的優(yōu)先級
| 操作符 | 描述 |
| ++, -- | 自增，自減 |
| -, ~, ! | 單目 |
| ** | 乘方 |
| =~, !~ | 模式匹配 |
| *, /, %, x | 乘，除，取余，重復 |
| +, -, . | 加，減，聯(lián)接 |
| <<, >> | 移位 |
| -e, -r, etc. | 文件狀態(tài) |
| <, <=, >, >=, 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的余數(shù)后再賦值給$x |
| .= | $str1.=$str2; | $str1=$str1.$str2;把$str1這個字符串再加上$str2這個字符串后再賦值給$str這個字符 串 |
| x= | $str x=$y; | $str=$str x $y;循環(huán)$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除后再余數(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）運算符
| 符號 | 范例 | 說明 |
| > | $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) |
六、其他運算符
| 指令： | ..區(qū)域運算符（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。 | ||
七、常用的文件數(shù)據(File test)運算符
| 范例 | 說明 |
| -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 | 返回文件最后一次更改時間到現(xiàn)在的日期數(shù) |
相關文章
php是用了很久了,python和ruby與用過,經典腳本語言就perl沒摸過，現(xiàn)在在像小學生一樣抱著教科書啃。2008-09-09
本文介紹一下Perl文件句柄的概念，要從文件中讀取一塊數(shù)據，應用程序需要調用函數(shù)ReadFile，并將Perl文件句柄在內存中的地址和要拷貝的字節(jié)數(shù)傳送給操作系統(tǒng)2013-03-03
PERL里正則表達式的簡介，適合喜歡學習perl正則的朋友。2009-03-03
perl，后來我又改過了增加了一些交互和數(shù)據庫檢測的功能。主要用于收集ip、mac、姓名、房間，后來又加入了維修記錄的功能。服務器端接受數(shù)據并存入數(shù)據庫中。2008-08-08
perl寫的生物突變的隨機模擬程序，有需要的朋友可以參考下2013-03-03
perl 中的vars是perl中的一個pragma(預編譯指示符），專門用來預定義全局變量，這些預定義后的全局變量在qw()列表中，在整個引用perl文件中皆可使用，即便使用use strict也不會報錯2013-03-03
perl去除重復內容的腳本代碼(重復行+數(shù)組重復字段)
perl去除重復內容的小腳本，有需要的朋友可以參考下,包括重復行、數(shù)據組中重復的字段2013-03-03
Perl里可以調用Shell命令，有時需要根據shell命令的返回結果做進一步的工作，如何獲得shell的執(zhí)行結果？2008-12-12
perl寫的一個隨機編故事的程序(rand隨機函數(shù))
用perl寫的一個隨機編故事的程序，用到了rand隨機函數(shù)，注釋也很詳細，需要的朋友可以參考下2013-03-03
在編程時把一段代碼注釋掉，即通過注釋的方法，使其不能夠運行，但是依然存在于代碼中，等以后需要時再去掉注釋2013-03-03