字串比對是PERL最大的功能和利器，它有一組獨特的運算子：

=~ 比對符合
!~ 比對不符合

在學習比對時，對於正規表達式Regular Expression得多多著墨才行，不然寫不出好的比對樣式(Pattern)，此篇舉三個基本比對的範例。先看第一個範例：

判斷使用者是不是輸入數字

範例

print "請輸入數字\n";
$line=<STDIN>;
chomp($line);
if( $line =~ /^\d+$/ ){ print "全是數字\n"; }
else{ print "不是全數字\n"; }

第2~3行 <STDIN> 代表等待使用者輸入的字串，會包含換行，因此用chomp來移除行尾的換行

第4行 $line =~ /^\d+$/ 這是PERL的比對寫法，注意並沒有用到雙引號或單引號，拆解後：

  $line 被比對的變數
  =~ 符合比對運算子
  /樣式/ 預設左右兩個斜線作為樣式的邊界，邊界符號是可以修改的，我在進階比對中會再說明，而樣式就是正規表達式的Pattern
      ^ 從字串的最前面開始判斷
      \d 代表1個數字 0~9
      + 代表出現1個以上
      $ 判斷到字串的最後面

 意思就是從字串的第1個字元比到最後一個字元，都必須是數字組成。

執行

這樣子輸入的字串只要不是全部由0-9所組成，就不符合，但也可以發現，負數和浮點數也不符合，如果要接受所有的數值(正、負、小數)該怎麼改？

判斷是否為數值

上一個範例中的第4,5兩行換成這樣，就能符合我們的需要：

if( $line =~ /^[+\-]?[\d.]+$/ ){ print "全是數值\n"; }
else{ print "非數值\n"; }

  樣式內容 ^[+\-]?[\d.]+$ 部分說明如下：

      ^ 從字串的最前面開始判斷
      [] 中刮號裡面是放字元的清單，意思就是只要出現清單中的任一個字元即可
        [+\-] 表示清單中有一個 '+' 和一個 '-'，由於 '-' 這符號在清單中是「連續」的意思，所以加上一個反斜線'\' 指定它為負號 '-'
      ? 問號的作用是他前面的字元可有可無，稱為變換字元
        [\d.] 代表數字和小數點都能接受
      + 代表出現1個以上
      $ 判斷到字串的最後面

執行

在某些情況下要使用者輸入帳號，但希望使用者只能輸入小寫的英文、數字和底線_，該怎麼寫。事實上，這裡還存在一個大漏洞，就是如果使用者輸入二個以上的小數點時，這就不會是數值，可是在我們的樣式裡是看不到這樣的限制。

只接受小寫的英文、數字和底線_

使用者只能輸入小寫的英文、數字和底線_作為帳號，同時第一個字元不能是底線或數字，該怎麼寫

print "請輸入帳號\n";
$line=<STDIN>;
chomp($line);
if( $line =~ /^[^_\d][\da-z_]+$/ ){ print "符合\n"; }
else{ print "不符合\n"; }

  樣式內容 ^[^_\d][\da-z_]+$ 部分說明如下：

      ^ 從字串的最前面開始判斷
      [^_\d] 在清單中的第一個字元若出現'^' 表示「相反」的意思，在清單中的字元都不能出現。所以意思是第1個字元不能出現數字\d和底線_
      [\da-z_] 這組清單能接受數字、和小寫a-z、及底線，正如上面提過，清單中的減字號'-'是連續的意思，不能視為一般的減號。
      + 代表出現1個以上
      $ 判斷到字串的最後面

理論上很完美，但是這裡面其實有一個很大的漏洞，有看出來嗎？第一個字元不接受數字和底線，其他符號反而能接受了，因此不能這樣寫，在寫正規表達式時，一定要多思考才不會漏洞百出。

修正

if( $line =~ /^[a-z][\da-z_]+$/ ){ print "符合\n"; }

有關於更多比對會再後面再介紹，下二篇先寫運算子...

上一篇 03-條件式判斷
回到目錄 01-撰寫第一隻PERL程式
下一篇 05-運算子 #1