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

Posted 2023-05-02

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

可以用index，例如：

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

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

如果返回-1表示没有，其实数表示$str2在$str1中的位置 参考技术A 用正则:
if($str1 =~ /$str2/)
...
本回答被提问者采纳 参考技术B $str1 =~/$str2/; 匹配是真，否则是假

c语言中判断一个字符串是不是包含另一个字符串

参考技术A string.h
strstr函数
函数名: strstr
功 能: 在串中查找指定字符串的第一次出现
用 法: char *strstr(char *str1, char *str2);
说明：返回指向第一次出现str2位置的指针，如果没找到则返回NULL。

调用函数,判断返回值是否等于NULL,决定是否输出
如;
char *p=".c"; //需要的子串
if(strstr(A,p)) printf("%s",A);

第一行是要查找的字符串
第二行是被查找句子

输出要查找的字符串在被查找句子的首个位置