perl判断字符串包含

perl中没有判断字符串包含的函数，可以用正则表达式来实现这个功能，下面代码判断$str1是否包含$str2。

if($str1 =~/$str2/) {
    ...
}

if ($str1 !~/str2/) {

    #匹配了不包含的

}else {

    #匹配了包含的

}