Perl 程式備忘錄 (續) 正規化

用來比對 IP

/(d+).(d+).(d+).(d+)/

找到含有數字的字串，同等 /[0-9]/

/d/

找到含有字母的字串，同等 /[a-zA-Z0-9_]/

/w/

把 a 替換成 b

$x =~ tr/a/b/

把小寫大寫

$x =~ tr/a-z/A-Z/

計算有幾個 *

$count = $x =~ tr/*/*/

比對 Email

([w-])+@([w-])+(.[w-])+