Perl-文字列にテキストが含まれている場合

Question

Curlを使用してページのソースを表示し、そのソースに文字列に一致するWordが含まれている場合、印刷を実行します。 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は正規表現です。