perl脚本中的模式匹配

#判断一个变量是否匹配一个空字符串，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;