|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Semenyaka 2:461/640 02 May 2001 19:30:54
To : Vladimir Podgorny
Subject : Проверка на принадлежность
--------------------------------------------------------------------------------
02 May 01 15:54, you wrote to all:
>> Есть массив некоторых слов. Есть скаляр (текст).
>> Как быстрее всего проверить, встречается ли хоть одно слово из
>> массива в скаляре? Цикл делать-то не хочется - не Перловое это
>> решение :-)
VP> $mask.="$_|" foreach (@array);
И чем join не устроил?
VP> chop($mask);
VP> print "Found\n" if $scalar=~/($mask)/;
@array есть ("?","!","...")
$scalar - "нифига"
Вперёд.
Alex
--- IMHO в последней инстанции
* Origin: ...можжевеловых... (2:461/640)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Проверка на принадлежность 