Подтвердить что ты не робот

Perl - Если строка содержит текст?

Я хочу использовать curl для просмотра источника страницы, и если этот источник содержит слово, соответствующее строке, то он выполнит печать. Как мне сделать if $string contains?

В VB это будет похоже.

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

Нечто похожее на это, но на Perl.

4b9b3361

Ответ 1

Если вам просто нужно искать одну строку в другой, используйте функцию index (или rindex, если вы хотите начать сканирование с конца строки):

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

Чтобы выполнить поиск строки для pattern, используйте оператор соответствия m//:

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

Ответ 2

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

Где something - регулярное выражение.