perl指令碼中的模式比對

標籤：使用   c   字串   doc   指令碼   pat   

#判斷一個變數是否匹配一個Null 字元串，m!pattern! 與 m/pattern/
if($str =~ m!^\s*$!)
如果僅僅判斷字串為空白，可以使用if($str eq "")
# 判斷$doc變數是否與給定模式相匹配，模式字串包含<span id="status">字元，\s表示包含空白，[^<>]*表示匹配不為字元<及>的任何字元。
# 其中的括弧按順序可以用$1, $2...進行引用。 最後的s表示跨行匹配，g表示全域匹配。
$doc =~ m!<span id="status">\s([^<>]*)!sg
# $str便擷取了上面模式比對小括弧中的內容。
$str = $1;