|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 03 May 2001 13:02:11
To : raven@cemetery.org.ua
Subject : Re: Проверка на принадлежность
--------------------------------------------------------------------------------
Здравствуй, Vladimir Podgorny.
В твоём письме от Thu, 3 May 2001 06:51:30 +0000 (UTC) написано:
rcou> Alex Semenyaka <Alex.Semenyaka@f640.n461.z2.fidonet.org> wrote:
VP>> $mask.="$_|" foreach (@array);
>> И чем join не устроил?
rcou> Тут mea maxima culpa - лажанулся по полной...
>> @array есть ("?","!","...")
>> $scalar - "нифига"
rcou> Правленое и проверенное:
rcou> my $line="abcdef!!!";
rcou> my $mask=("\Q".join('|',qw(? ! + .))."\E");
'\b('.join('|',map("\\Q$_\\E",@array)).')\b'
все-таки...
--
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
