ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 02 May 2001 15:54:44
To : All
Subject : Re: Проверка на принадлежность
--------------------------------------------------------------------------------
InSAn <news@insan.al.ru> wrote:
> Hi, All!
>
> Есть массив некоторых слов. Есть скаляр (текст).
> Как быстрее всего проверить, встречается ли хоть одно слово из массива в
> скаляре?
> Цикл делать-то не хочется - не Перловое это решение :-)
$mask.="$_|" foreach (@array);
chop($mask);
print "Found\n" if $scalar=~/($mask)/;
>
> --
> ---
> Best regards, InSAn
>
> http://adv.proext.com - Магазин сетевой рекламы
> http://shop.proext.com - Лучшие книги!
> http://delphi.proext.com - Delphi-программисту
>
>
>
>
> Отправлено через сервер Talk.Ru - http://www.talk.ru
--
VP1-UANIC
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Проверка на принадлежность 
