есть хэш, что-то вроде:
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)
- Форум Помогите со скриптом PL (2006)
- Форум php-fpm config (2009)
- Форум [emacs] Интерграция с интерпретатором python (2012)
- Форум Помогите сделать макрос красивым (2013)
- Форум Ошибка при двойном запросе в MySQL в Си (2017)
- Форум emacs: company-mode completion (2022)
- Форум Синхронизация пользователей домена WinSrv2008 с файловым сервером CentOS 6.6 (2016)
- Форум Не монтируются шары Samba по mount.cifs в Centos 7 (2019)