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

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

От Nil A (2:5015/46) к Ruslan Suleimanov

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


Hello, Ruslan!

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

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

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

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

RS> делаю как обычно if($slovo=~/$strfraza/)
RS> {
RS> print "ok";
RS> }
RS> esle
RS> {
RS> print "not ok";
RS> }
RS> И почемуто не находит... так вообще будет искать ?

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

Best Regards, Nil
--- GoldED+/LNX 1.1.5
* Origin: Linux 2.6.32-042stab145.3 (2:5015/46)

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

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

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

FGHI-url этого письма: area://RU.PERL?msgid=2:5015/46+631f6a17