есть хэш, что-то вроде:
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)