string - Perl - 如果字符串包含文本？

Question

我想使用curl来查看页面的源代码，如果该源代码包含与字符串匹配的单词，那么它将执行打印。 if $string contains 我该怎么做？

在 VB 中就像这样。

dim string1 as string = "1"
If string1.contains("1") Then
Code here...
End If

与此类似，但使用 Perl。

Answer 1

如果您只需要在另一个字符串中搜索一个字符串，请使用 index函数(或 rindex 如果您想从字符串末尾开始扫描):

if (index($string, $substring) != -1) {
   print "'$string' contains '$substring'\n";
}

在字符串中搜索 pattern匹配，使用匹配运算符 m// :

if ($string =~ m/pattern/) {  # the initial m is optional if "/" is the delimiter
    print "'$string' matches the pattern\n";       
}