perl 5基礎(chǔ)教程――運(yùn)算符
一、算術(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)化為無符號(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è)賦值語句中出現(xiàn)多次,如:
$value1 = $value2 = "a string";
2. =作為子表達(dá)式
($a = $b) += 3;
等價(jià)于
$a = $b;
$a += 3;
七、自增自減運(yù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)過++運(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中,還可以在賦值式左邊使用條件操作符來選擇被賦值的變量,如:
$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é)合性 ++, -- 無 -, ~, ! 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運(yùn)算符簡單應(yīng)用
一、賦值(Assignment)運(yùn)算符
| 符號(hào) | 范例 | 說明 |
| = | $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) | 范例 | 說明 |
| + | $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) | 范例 | 說明 |
| > | $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) | 范例 | 說明 |
| 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) | |
| 說明: | 這個(gè)運(yùn)算符是Perl語言中特別有用運(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)算符 | |
| 說明: | 這個(gè)運(yùn)算符的意義和C語言一樣,如果判斷運(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)算符
| 范例 | 說明 |
| -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ù) |
新聞熱點(diǎn)
疑難解答
圖片精選