ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      22 Jul 2001  04:27:13
 To : Alexei Ptshelnikov
 Subject : Re: 2 вопроса
 -------------------------------------------------------------------------------- 
 

 
 >>во-вторых,
 >>символические ссылки давить (это к вопросу об имени, которое содержиться),
 AP>А почему давить-то? Удобно же... Hапример, если cgi-скрипт и надо выполнить
 AP>действие в зависимости от значения, которое было передано скрипту.
 AP>Что-нибудь типа: ?action=show или может быть ?action=add, дык, намного
 AP>удобнее не городить кучу if () {}, а сделать & { $Data{action} }
 AP>(соответственно в $Data{action} содержится значение нужное).
 
 Обычно это пишут в виде:
 my %ops = (
   'foo'=>\&foo, 
   'bar'=>\&bar,
   ....
 );
 my $op = param('op');
 if ($ops{$op}) {
   $ops{$op}->(); # Вызвать подпрограмму по ссылке из хеша %ops
 } else {
   print "Oops, wrong op: $op";
 }  
 
 sub foo {
   # делать foo 
 }
 
 sub bar {
   # делать bar
 }  
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

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