怎么去判断一个字符串包含另一个字符串呢？具体看下面！

Question

一个字符串如：$str1="20090414095014";
$str2="20090414";
如果$str1包含$str2，然后在进行下一步操作，这个包含怎么判断？
请Perl大侠指教！

Answer 1

可以用index，例如：$str1="20090414095014";$str2="20090414";print index($str1,$str2);运行结果是：E:\ygb>perl a.pl0如果返回-1表示没有，其实数表示$str2在$str1中的位置

Answer 2

用正则:if($str1 =~ /$str2/) {...}