|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatolij Kupriyanov 2:5050/69.1 04 May 2001 11:19:41
To : Ran@ran.Pp.Ru
Subject : Проверка на принадлежность
--------------------------------------------------------------------------------
Я совершенно случайно заметил, что в Четверг Май 03 2001 12:02, ran@ran.pp.ru
писал raven@cemetery.org.ua:
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> все-таки...
Я что-то не понял, или вы, pебята, пpосто пpикалываетесь??? Pазве grep
отменили?
print "Suxx!" if grep {$scalar eq $_} @array;
C уважением, Anatolij Kupriyanov.
[МФ УдГУ] [(Microsoft!=SUXX)&&(LINUX!=RULEZ)] [Two Beer or not to be]
ш "Жить быстро, умереть молодым" - Это старый клич, но я хочу быть живым
... еще 50 грамм инвестиций - и я недвижимость...
--- ifmail v.2.15
* Origin: Собысчас (2:5050/69.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
