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

Question

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

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

Answer 1

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

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

返回$substr在$str中第一次出现的位置，如果没有找到子字符串则返回-1。

Answer 2

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

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

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

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

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

因此，这是一个错误：

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

如果 s1.domain.example 位于字符串的开头，这将是错误的。我个人不止一次为此感到恼火。

Answer 3

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

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

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