检查字符串是否包含子字符串

如何使用Perl检查给定的字符串是否包含某个子字符串？

更具体地说，我想看看s1.domain.com给定的字符串变量中是否存在。

要查找字符串是否包含子字符串，可以使用以下index函数：

if (index($str, $substr) != -1) {
    print "$str contains $substr\n";
} 

如果未找到子字符串，它将返回$substrin $str或-1中第一次出现的位置。

另一种可能性是使用正则表达式，这是Perl的著名之处：

if ($mystring =~ /s1\.domain\.com/) {
   print qq("$mystring" contains "s1.domain.com"\n);
}

需要使用反斜杠，因为a .可以匹配任何字符。您可以使用\Q和\E运算符解决此问题。

my $substring = "s1.domain.com";
    if ($mystring =~ /\Q$substring\E/) {
   print qq("$mystring" contains "$substring"\n);
}

或者，您可以按照eugene y进行操作并使用索引函数。只是警告-1一下：Index 找不到匹配项时会返回a ，而不是undefor 0。

因此，这是一个错误：

my $substring = "s1.domain.com";
if (not index($mystring, $substr)) {
    print qq("$mystring" doesn't contains "$substring"\n";
} 

如果s1.domain.com在字符串的开头，这将是错误的。我个人对此不止一次。

不区分大小写的子字符串示例

这是Eugene答案的扩展，它在检查子字符串之前将字符串转换为小写：

if (index(lc($str), lc($substr)) != -1) {
    print "$str contains $substr\n";
}