Пишу свой класс, имеется в нем примерно такая строчка (чтобы структуру объяснить):

Код

${${${$array[$counter]}{BUTTONS}}[$btn_counter]}{ID} = $1;

то есть $array - массив ссылок на хэш (1-го уровня). в этом хэше есть ключик {BUTTONS} - содержит указатель на массив указателей на хэши(2-го уровня) и в этом последнем хэше ключю {ID} присваивается какое-то значение. это преамбула. (если тут уже есть ошибки, поправьте, плз).
Далее есть такой код:

Код

foreach $lnk (@array){   if (условие){    %tbl = %{$lnk};   };  }; #по идее, после этого %tbl должен быть не копией, а имеено одним из хэшэй первого уровня  @mas = @{$tbl{BUTTONS}}; #@mas должен быть массивом (а не копией массива), ссылка на который содержится в %tbl, ключе BUTTONS  #какие-то изменения @mas  open f, ">/home/predator/log.txt";  print f Dumper(@mas);  print f "-----------------------\n";  print f Dumper(@{$tbl{BUTTONS}});  print f "-----------------------\n";  close f;

после выполнения этого кода в логе видно, что @mas изменяется, а @{$tbl{BUTTONS}} остается прежним - как будто я @mas создавал из значений @{$tbl{BUTTONS}}, а не создал его по ссылке.

Меня терзают смутные сомнения, что я где-то очень сильно торможу по недосыпу... Ткните носом, где тыт ошибка, кому не лениво во всем этом разбираться

1) Указателей в Perl нет ...
2) Используйте более ясный синтаксис '->' тогда будет и вам и нам понятнее
3) Для дампа сложных структур используйте Data::Dumper

если не поможет пишите

Цитата

1) Указателей в Perl нет ...

хорошо, назовем это умными указателями... или даже вернее будет назвать дескрипторами. суть-то от этого не меняется, я полагаю?

для дампа используется Data::Dumper, как вы и написали....

сейчас со стрелочками попробую переписать.

Всем спасибо, поспал и ошибка нашлась Во-первых действительно лучше писать со стрелочками (не знаю почему раньше там не делал , а во-вторых... просто глючил