perl判断字符串包含

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

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