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";
}

要在字符串中搜索模式匹配,请使用匹配运算符m//:

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

Answer 2

if ($string =~ m/something/) {
   # Do work
}

something正则表达式在哪里.