Perl - Если строка содержит текст?
Я хочу использовать curl для просмотра источника страницы, и если этот источник содержит слово, соответствующее строке, то он выполнит печать. Как мне сделать if $string contains
?
В VB это будет похоже.
dim string1 as string = "1"
If string1.contains("1") Then
Code here...
End If
Нечто похожее на это, но на Perl.
Ответы
Ответ 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
- регулярное выражение.