|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 07 May 2001 12:47:01
To : Anatolij Kupriyanov
Subject : Re: Проверка на принадлежность
--------------------------------------------------------------------------------
Здравствуй, Anatolij Kupriyanov.
В твоём письме от Fri, 04 May 2001 10:19:41 +0400 написано:
VP>>>> $mask.="$_|" foreach (@array);
>>>> И чем join не устроил?
rcou>>> Тут mea maxima culpa - лажанулся по полной...
>>>> @array есть ("?","!","...")
>>>> $scalar - "нифига"
rcou>>> Правленое и проверенное:
rcou>>> my $line="abcdef!!!";
rcou>>> my $mask=("\Q".join('|',qw(? ! + .))."\E");
r>> '\b('.join('|',map("\\Q$_\\E",@array)).')\b'
r>> все-таки...
AK> Я что-то не понял, или вы, pебята, пpосто пpикалываетесь??? Pазве grep
AK> отменили?
AK> print "Suxx!" if grep {$scalar eq $_} @array;
Hе отменили. Hо он нечасто сравним по эффективности. В отличие от регекса, он
будет проверять все варианты, а не до первого удачного. И кроме того, опять же
не eq...
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- ifmail v.2.15dev5
* Origin: NTV Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
