ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Sidorenko                   2:50/438.32    13 Jul 2000  00:58:25
 To : All
 Subject : пара вопросов
 -------------------------------------------------------------------------------- 
 

 
 1) Что и как делает этот кусок (из книги с верблюдом cтр. 698 :)
 
 %States=(
  'Default'=>\&frontpage,
  'Shirt'=>\&shirt,
 # ------cut-----
 );
 
 $Current_Screen=param(".State")||"Default";
 while(my($screen_name,$function)=each %States) {
  $function->($screen_name eq $Current_Screen)         # <--- ?????
 }
 
 Если это то, что я думаю, то оно всё равно не работает - вызываются все функции 
 из %States.
 
 А вот так работает:
 $page=param('page');
 &{$States{$page}}(0);}
 
 2) Почему работает print center{h3("text here"),hr};
 и не работает print center(h3("text here"),hr);
 До встpечи в эфиpе, All!
 --- GoldED/386 3.0.1-asa9.1
  * Origin: The game not replay - it's a Black Masqurade...        (2:50/438.32)
 
 

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