Perl中三個使用=~ 符號的運算子

http://www.cyut.edu.tw/~ckhung/b/pl/idiom.ph

三個使用 =~ 符號的運算子

1. $var =~ tr/.../.../; 把變數 $var 內的 ... 字元都逐一代換成 ... 字元 兩串 ... 通常長度一樣. 想成是查 "字元典" 翻譯。 (較不常用)
2. $var =~ s/.../.../; 把變數 $var 內的第一個 ... 子字串整個代換成 ... 子字串。
3. if ($var =~ m/.../) { ... } 詢問變數 $var 裡面有沒有 ... 這個子字串呢?

注意:

1. 前兩項功能是破壞性的 (destructive), $var 的內容可能因而改變; 第三項是非破壞性的 (non-destructive)。
2. 後兩項功能在現實生活中較常用到; 兩者都支援 regular expression。
3. 其實可以用其他標點符號來取代斜線, 只要一句話內前後一致就好。
4. 其實第三項功能的 m 可以省略掉
5. 如果 $var 是 $_ 則可以用簡寫, 把 $var =~ 全部省略掉。

代換字串 ... =~ s/.../.../ 時, 可以加上一些選項, 例如

i (ignore) 表示忽略大小寫 (比對成功的條件變得更寬鬆);
g (global) 表示全面代換, 不只代換第一個比對成功的子字串。

神奇的內定參數 $_

在很多場合下, 參數可以省略不寫, 而此時 perl 自動以 $_ 作為內定參數. 例如:

1. 用 <FH> 從檔案讀入的一列, 自動存在 $_ 中.
2. 許多運算子的參數, 例如 tr, s, m.
3. 許多函數的參數, 例如 print, chomp, split, ...
4. foreach 的 dummy variable.