Исходное сообщение
"тип данных" Отправлено sproot, 24-Янв-09 04:36
>Похоже вы сами не понимаете о чём говорите. >Если ваша искомая переменная динамическая,- то вы к ней как-то же обращаетесь? >Какой-то указатель видимо? ну так посмотрите что внутри указателя тем-же самым >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?

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Похоже вы сами не понимаете о чём говорите. >>Если ваша искомая переменная динамическая,- то вы к ней как-то же обращаетесь? >>Какой-то указатель видимо? ну так посмотрите что внутри указателя тем-же самым >>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?
	Введите код, изображенный на картинке: