ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 03 May 2001 10:51:30
To : All
Subject : Re: Проверка на принадлежность
--------------------------------------------------------------------------------
Alex Semenyaka <Alex.Semenyaka@f640.n461.z2.fidonet.org> wrote:
> VP> $mask.="$_|" foreach (@array);
> И чем join не устроил?
Тут mea maxima culpa - лажанулся по полной...
> @array есть ("?","!","...")
> $scalar - "нифига"
Правленое и проверенное:
my $line="abcdef!!!";
my $mask=("\Q".join('|',qw(? ! + .))."\E");
print "OK\n" if $line=~/$mask/;
> Вперёд.
>
> Alex
>
--
VP1-UANIC
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
