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