ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Nemov                         2:5020/400     07 Dec 2001  01:42:54
 To : Sergey Sokolov
 Subject : Re: Подобие Select Case
 -------------------------------------------------------------------------------- 
 

 Привет, Sergey Sokolov.
 
 > Есть ли в Perl опеpатоpы, подобные Select Case в бейсике и дp. языках
 > if...elsif..elsif  я yже знаю
 
 Hету. А оно надо? Обычно if elsif elsif else вполне хватает. и совсем не
 громоздко.
 
 Если благородный дон является любителем тонких извращений, могу
 порекомендовать следующее:
 ====================
 my $rh = {'a'=> sub{print 'case a'}, 'b'=> sub{print 'case b'}, 'default'=>
 sub{print 'case default'}};
 
 my $case = 'b';
 
 $case = 'default' unless exists $rh->{$case};
 
 &{$rh->{$case}};
 
 ====================
 --
 
 Andrey Nemov.
 xTech Ltd., Project manager.
 ICQ UIN: 25783924
 --- ifmail v.2.15dev5
  * Origin: xTech (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Подобие Select Case   Sergey Sokolov   05 Dec 2001 18:33:14   Re: Подобие Select Case   Andrey Nemov   07 Dec 2001 01:42:54   Re: Подобие Select Case   Alexander Babanov   06 Dec 2001 20:15:53   Подобие Select Case   Alexey Gradovtsev   07 Dec 2001 19:36:26