jak volat funkci odkazem a z jineho baliku?

[Pavel Šmerk]

rootmj wrote:

> use strict;
> 
> my $test_select = sub {  };
> 
> &$test_select();
> 
> # nasledujici radek nefunguje
> #   Can't use string ("") as a subroutine ref while  "strict refs"
> #   in use at
> #   E:\___perl\_wx-perl\__pidiucto\pidiUcto.pl line 244.
> &$main::test_select();


Ze by to byly dve ruzne promenne?

$ perl
use strict;
my $test_select = sub {  };
print "$test_select|$main::test_select|\n";
__END__
CODE(0x8101558)||

Na promenne deklarovane pomoci my se nelze odkazovat $balik::promenna, 
nejsou v tabulce symbolu. Samozrejme nic Vam nebrani hned na zacatku 
priradit do $main::test_select.

Mozna vice napovi man perlmod, cast Packages.

S pozdravem

P.