>Похоже вы сами не понимаете о чём говорите.
>Если ваша искомая переменная динамическая,- то вы к ней как-то же обращаетесь?
>Какой-то указатель видимо? ну так посмотрите что внутри указателя тем-же самым
>ref Сорри, если кого обидел, эт я сгоряча..
Смотрите, так переменную видно:
#!/usr/bin/perl
require Devel::Symdump;
@ARRAY_X = ("Я переменная");
$obj = Devel::Symdump->rnew(@main);
@array = $obj->arrays;
foreach (@array) {
print "$_\n";
}
/test.pl
DB::args
Carp::EXPORT_FAIL
Carp::ISA
Carp::EXPORT
Carp::EXPORT_OK
main::array
main::ARGV
main::INC
main::ARRAY_X
main::_
main::main
а так нет:
#!/usr/bin/perl
require Devel::Symdump;
my @ARRAY_X = ("Я переменная");
$obj = Devel::Symdump->rnew(@main);
@array = $obj->arrays;
foreach (@array) {
print "$_\n";
}
./test.pl
DB::args
Carp::EXPORT_FAIL
Carp::ISA
Carp::EXPORT
Carp::EXPORT_OK
main::array
main::ARGV
main::INC
main::_
main::main
Когда переменная объявлена через my, она не прописывается в symbol table?