- Perl 基礎
- Perl - 首頁
- Perl - 簡介
- Perl - 環境
- Perl - 語法概述
- Perl - 資料型別
- Perl - 變數
- Perl - 標量
- Perl - 陣列
- Perl - 雜湊
- Perl - IF...ELSE
- Perl - 迴圈
- Perl - 運算子
- Perl - 日期和時間
- Perl - 子程式
- Perl - 引用
- Perl - 格式
- Perl - 檔案 I/O
- Perl - 目錄
- Perl - 錯誤處理
- Perl - 特殊變數
- Perl - 編碼規範
- Perl - 正則表示式
- Perl - 傳送電子郵件
- Perl 高階
- Perl - 套接字程式設計
- Perl - 面向物件
- Perl - 資料庫訪問
- Perl - CGI 程式設計
- Perl - 包和模組
- Perl - 程序管理
- Perl - 嵌入式文件
- Perl - 函式引用
- Perl 有用資源
- Perl - 問答
- Perl - 快速指南
- Perl - 有用資源
- Perl - 討論
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
廣告