Perl 賦值運算子示例



假設變數 $a 儲存 10,變數 $b 儲存 20,那麼以下是 Perl 中可用的賦值運算子及其用法:

序號 運算子 & 描述
1

=

簡單賦值運算子,將右側運算元的值賦給左側運算元

示例 − $c = $a + $b 將 $a + $b 的值賦給 $c

2

+=

加法並賦值運算子,將右側運算元加到左側運算元上,並將結果賦給左側運算元

示例 − $c += $a 等價於 $c = $c + $a

3

-=

減法並賦值運算子,將右側運算元從左側運算元中減去,並將結果賦給左側運算元

示例 − $c -= $a 等價於 $c = $c - $a

4

*=

乘法並賦值運算子,將右側運算元乘以左側運算元,並將結果賦給左側運算元

示例 − $c *= $a 等價於 $c = $c * $a

5

/=

除法並賦值運算子,將左側運算元除以右側運算元,並將結果賦給左側運算元

示例 − $c /= $a 等價於 $c = $c / $a

6

%=

取模並賦值運算子,對兩個運算元進行取模運算,並將結果賦給左側運算元

示例 − $c %= $a 等價於 $c = $c % a

7

**=

指數並賦值運算子,對運算元進行指數(冪)運算,並將結果賦給左側運算元

示例 − $c **= $a 等價於 $c = $c ** $a

示例

嘗試以下示例以瞭解 Perl 中所有可用的賦值運算子。將以下 Perl 程式複製並貼上到 test.pl 檔案中,並執行此程式。

#!/usr/local/bin/perl
 
$a = 10;
$b = 20;

print "Value of \$a = $a and value of \$b = $b\n";

$c = $a + $b;
print "After assignment value of \$c = $c\n";

$c += $a;
print "Value of \$c = $c after statement \$c += \$a\n";

$c -= $a;
print "Value of \$c = $c after statement \$c -= \$a\n";

$c *= $a;
print "Value of \$c = $c after statement \$c *= \$a\n";

$c /= $a;
print "Value of \$c = $c after statement \$c /= \$a\n";

$c %= $a;
print "Value of \$c = $c after statement \$c %= \$a\n";

$c = 2;
$a = 4;
print "Value of \$a = $a and value of \$c = $c\n";
$c **= $a;
print "Value of \$c = $c after statement \$c **= \$a\n";

執行以上程式碼時,會產生以下結果:

Value of $a = 10 and value of $b = 20
After assignment value of $c = 30
Value of $c = 40 after statement $c += $a
Value of $c = 30 after statement $c -= $a
Value of $c = 300 after statement $c *= $a
Value of $c = 30 after statement $c /= $a
Value of $c = 0 after statement $c %= $a
Value of $a = 4 and value of $c = 2
Value of $c = 16 after statement $c **= $a
perl_operators.htm
廣告

© . All rights reserved.