|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Litvinuke 2:454/26.8 03 May 2001 06:13:04
To : Vladimir Podgorny
Subject : Проверка на принадлежность
--------------------------------------------------------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~і
02 Май 01 15:54, Vladimir Podgorny -> All:
>> Есть массив некоторых слов. Есть скаляр (текст).
>> Как быстрее всего проверить, встречается ли хоть одно слово из
>> массива в скаляре? Цикл делать-то не хочется - не Перловое это
>> решение :-)
VP>
VP> $mask.="$_|" foreach (@array);
VP> chop($mask);
VP> print "Found\n" if $scalar=~/($mask)/;
я прошу прощения, но просили-то без цикла...
$mask = join('|',@array);
...
________________________________________________________________________і
°°°Litvinuke Alexey(aka Neuron)(C/C++,Perl,Awk support!) 2:454/26.8 °°°
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
... Как странно я, умираю весной, под шорох растущей травы.
--- Dolphin 3.00.Beta5+
* Origin: Брестский лицей #1 [учащийся группы 33м/и] (2:454/26.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
