[Perl] Импортировать ссылку с анонимной подпрограммой
Добавлено: 2011-03-28 17:40:27
есть модуль
я хочу импортировать эту анонимныю подпрограмму с своего скрипта
сам данный модуль отлично сам инициализируется!
я еще давно знаю, что примерно это должно быть так:
полностью:
выводит undef
c print Dumper ${${'main::'.$pkg.'::'}{anon_anon}}
если написать так:
то anon_anon я не вижу в выводе, может оно не выводиться по каким-то причинам??
Код: Выделить всё
package Bar;
my $anon_anon = sub {return 666}
сам данный модуль отлично сам инициализируется!
я еще давно знаю, что примерно это должно быть так:
Код: Выделить всё
use Bar;
my $pkg = 'Bar';
print Dumper ${${'main::'.$pkg.'::'}{anon_anon}}
Код: Выделить всё
foreach (keys(%{'main::'.$pkg.'::'})) {
${${'main::'.$pkg.'::'}{$_}}=undef if defined ${${'main::'.$pkg.'::'}{$_}};
@{${'main::'.$pkg.'::'}{$_}}=undef if defined @{${'main::'.$pkg.'::'}{$_}};
%{${'main::'.$pkg.'::'}{$_}}=undef if defined %{${'main::'.$pkg.'::'}{$_}};
}
c print Dumper ${${'main::'.$pkg.'::'}{anon_anon}}
если написать так:
Код: Выделить всё
{
no strict 'refs';
foreach my $entry ( keys %main:: )
{
print Dumper $entry;
}
}
то anon_anon я не вижу в выводе, может оно не выводиться по каким-то причинам??