на главнуюВсе эхи RU.PERL
войти ?

поиск слова в строке

От Ruslan Suleimanov (2:467/888) к Nil A

В ответ на Заголовок предыдущего сообщения в треде (Имя Автора)


Привет, Nil!



Ответ на сообщение Nil A (2:5015/46) к Ruslan Suleimanov, написанное 12 сен 22 в 20:15:


NA> Monday September 12 2022 19:25, from Ruslan Suleimanov -> All:

RS>> Что-то не работает поиск слова в строке.. может чтото не так делаю ?)
RS>> Вот например есть две переменные, в одной слово в другой строка:
RS>> $slovo = "google";
RS>> $strfraza = "Сегодня я искал инфу с помощью google поисковика";

NA> Получить индекс символа или подстроки. Ели не найдено, то будет -1.
NA> $loc = index($strfraza, $slovo);

NA> Ещё, тебе захочется сравнить без учёта регистра если
NA> if (index(lc($strfraza), lc($slovo)) != -1) {
NA> print "ok\n";
NA> }

без учета регистра еще добавить можно в конце шаблона ig, if ($strfraza =~/\Q$slovo\E/ig)
Спасибо за подсказку :)

NA> if ($strfraza =~/\Q$slovo\E/)







WBR Ruslan Suleimanov


... Идите домой. Водки нет! Go home, no vodka!

--- rsync://ip.fido.odessa.ua/FIDO/
* Origin: /RS/FIDO Druzi 199x fido.odessa.ua/ (2:467/888)

Ответы на это письмо:

From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку

From: Username
Или коротким

FGHI-url этого письма: area://RU.PERL?msgid=2:467/888+632178b6