Question

perl 判断一个字符串包含另一个字符串

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

Answer 1

可以用index，例如：

$str1="20090414095014";
$str2="20090414";
print index($str1,$str2);

运行结果是：
E:\ygb>perl a.pl
0

如果返回-1表示没有，其实数表示$str2在$str1中的位置

Answer 2

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

Answer 3

$str1 =~/$str2/; 匹配是真，否则是假