Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Проверка на принадлежность   InSAn   02 May 2001 15:46:40 
 Re: Проверка на принадлежность   Vladimir Podgorny   02 May 2001 15:54:44 
 Проверка на принадлежность   Alex Semenyaka   02 May 2001 19:30:54 
 Re: Проверка на принадлежность   Vladimir Podgorny   03 May 2001 10:51:30 
 Re: Проверка на принадлежность   Artem Chuprina   03 May 2001 13:02:11 
 Re: Проверка на принадлежность   InSAn   04 May 2001 09:27:27 
 Re: Проверка на принадлежность   Artem Chuprina   04 May 2001 12:24:35 
 Re: Проверка на принадлежность   InSAn   04 May 2001 13:05:15 
 Re: Проверка на принадлежность   Stanislav Nekrasov   08 May 2001 17:45:24 
 Проверка на принадлежность   Anatolij Kupriyanov   04 May 2001 11:19:41 
 Re: Проверка на принадлежность   Artem Chuprina   07 May 2001 12:47:01 
 Проверка на принадлежность   Anatolij Kupriyanov   09 May 2001 12:08:40 
 Re: Проверка на принадлежность   Artem Chuprina   10 May 2001 16:05:40 
 Проверка на принадлежность   Alexey Litvinuke   03 May 2001 06:13:04 
Архивное /ru.perl/120342d631acc.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional