ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuri Novokhatko                      2:5026/47      26 May 2000  12:20:01
 To : Konstantin Kalachev
 Subject : Исключение в шаблоне
 -------------------------------------------------------------------------------- 
 

  Пpивет Konstantin!
 
 В письме от 26 May 00, Konstantin Kalachev сообщал All:
  KK> К сожалению, даже в perldoc нет нормального описания сабжа. Может
  KK> кто-нибудь подскажет, как например, прочитать все элементы списка, в
  KK> которых не участвует символ '-' ?
 
 === Cut ===
 foreach $s('-123', '113', '1245-', '34345', '34-356') {
    if ($s !~ /-/) {
        print "$s \n";
    }
 }
 
 или
 
 map {print $_, "\n" unless $_ =~ /-/ } ('-123', '113', '1245-', '34345',
 '34-356')
 === Cut ===
 
  С уважением "незабвенный" Yuri Novokhatko - 26 May 00 13:20.
    e-Mail: ivstat@adminet.ivanovo.ru
 
 --- GoldED/W32 3.0.1
  * Origin: І xWay Station; no points - no problems І (FidoNet 2:5026/47)
 
 

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

Тема:    Автор:    Дата:    Исключение в шаблоне   Konstantin Kalachev   26 May 2000 11:39:30   Исключение в шаблоне   Yuri Novokhatko   26 May 2000 12:20:01   Re: Исключение в шаблоне   Dmitry Tweritin   27 May 2000 18:39:12