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

Question

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

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

Answer 1

要查明字符串是否包含子字符串，您可以使用 index功能:

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

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