есть хэш, что-то вроде:
my %switcher_0 = (
  '00FB' => \&node_1,
  '0341' => \&node_124,
  '0143' => \&node_12846,
  "\n" => sub { return },
);
есть код:
sub node_0
{
  $parameter[ 5 ] = fetch_parameter( 'ID' );
  my $fref = $switcher_0{ $parameter[5] }();
  if (defined($fref))
  {
    &$fref();
  }
  else
  {
    &$switcher_0{ "\n" }();
  }
}
ругается так:
Global symbol "$switcher_0" requires explicit package name at ruler.pm line 15665.
syntax error at ruler.pm line 15665, near "$switcher_0{ "
syntax error at ruler.pm line 15667, near "}"
15665 это строка     &$switcher_0{ "\n" }();
что не так?
    
      Ответ на:
      
          комментарий
        от asgard 
  

    
      Ответ на:
      
          комментарий
        от dilmah 
  
    
      Ответ на:
      
          комментарий
        от dilmah 
  
    
      Ответ на:
      
          комментарий
        от dilmah 
  
    
      Ответ на:
      
          комментарий
        от dilmah 
  
    
      Ответ на:
      
          комментарий
        от dilmah 
  

    
        Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
      
Похожие темы
- Форум Почему не работает? (2016)
- Форум PERL и use strict (2005)
- Форум install Yii2 (2015)
- Форум Помогите со скриптом PL (2006)
- Форум [Scheme][Lisp][Макры] Есть вопросы. (2010)
- Форум perl, switch, argv (2021)
- Форум помогите новичку исправить DSDT (2011)
- Форум FTP (2011)
- Форум конфликт версий setuptools (2016)
- Форум php-fpm config (2009)