https://www.opennet.ru/openforum/vsluhforumID9/9918.html доброй ночи<br>присваиваю %tmp=%hash и работаю ТОЛЬКО с %tmp, но при этом данные в %hash также меняются.<br>не меняются они, только если прогнать while по всему %hash и поскалярно перекинуть данные в %tmp<br>т.е. $tmp{$key}=$hash{$key}<br>это баг или фича?<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#11 Wed, 29 Oct 2014 18:33:13 GMT [code]<br>use Storable qw(dclone);<br>[...]<br>%tmp = %{ dclone( \%hash ) };<br>[/code]<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#10 Wed, 15 Oct 2014 18:26:12 GMT шо вы таки меня палите ))<br><br><br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#9 Wed, 15 Oct 2014 12:12:52 GMT &gt; а зачем же там функция отдельная, когда можно прям там же: <br>&gt; my@tmp=@{$hash{$key1}{$key2}}; <br>&gt; for(0..$#tmp){$tmp{$key1}{$key2}[$_]=$hash{$key1}{$key2}[$_]} <br><br>Как я и писал, зависит от задачи. Здесь такой способ годится, в другом случае может и нет. Мы ваших задач не знаем, а общий случай слишком заковыристый, чтобы объяснить в двух строчках на форуме и написать в двух строчках на Пёрле. Как, например, будете обрабатывать циклические ссылки? В общем случае они, конечно же, есть. А всякие blessed объекты, требующие инициализации? Их нельзя просто так копировать.<br><br>PS. Моё личное вам &#171;фи&#187; за ответ хамством на хамство по нарастающей. А Pahanivo тут штатный, пора бы привыкнуть. Я его когда-то чайникодавом назвал, и он по-прежнему оправдывает это звание :-)<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#8 Wed, 15 Oct 2014 11:30:46 GMT &gt;[оверквотинг удален]<br>&gt;&gt; { <br>&gt;&gt; $tmp{$key1}{$key2}[0]=$hash{$key1}{$key2}[0]; <br>&gt;&gt; $tmp{$key1}{$key2}[1]=$hash{$key1}{$key2}[1] <br>&gt;&gt; } <br>&gt;&gt; } <br>&gt;&gt; но если массив будет помассивней, херня получится <br>&gt; ну дак вы учитесь таки пользоваться перлом.<br>&gt; вам же правильно говорят - делайте функцию копирования для структуры, <br>&gt; а то ни про ссылки не знаете, ни про циклы по массиву <br>&gt; ...<br><br>о блять, знаток вылез<br>а зачем же там функция отдельная, когда можно прям там же:<br>my@tmp=@{$hash{$key1}{$key2}};<br>for(0..$#tmp){$tmp{$key1}{$key2}[$_]=$hash{$key1}{$key2}[$_]}<br><br>учитесь таки пользоваться перлом (c)<br><br>и читать. вопрос был: как упростить до %tmp=%hash<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#7 Wed, 15 Oct 2014 10:49:02 GMT &gt;[оверквотинг удален]<br>&gt; ну у меня пока решение такое: <br>&gt; while(my$key1 = each %hash) <br>&gt; { <br>&gt; while(my$key2 = each %{$hash{$key1}}) <br>&gt; { <br>&gt; $tmp{$key1}{$key2}[0]=$hash{$key1}{$key2}[0]; <br>&gt; $tmp{$key1}{$key2}[1]=$hash{$key1}{$key2}[1] <br>&gt; } <br>&gt; } <br>&gt; но если массив будет помассивней, херня получится <br><br>ну дак вы учитесь таки пользоваться перлом.<br>вам же правильно говорят - делайте функцию копирования для структуры,<br>а то ни про ссылки не знаете, ни про циклы по массиву ...<br><br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#6 Wed, 15 Oct 2014 09:38:22 GMT &gt;&gt; ну а как правильно?<br>&gt; Трудно сказать, от задачи зависит. В общем случае для копирования сложной структуры <br>&gt; можно сделать рекурсивную функцию.<br><br>ну у меня пока решение такое:<br>while(my$key1 = each %hash)<br>{<br> while(my$key2 = each %{$hash{$key1}})<br> {<br> $tmp{$key1}{$key2}[0]=$hash{$key1}{$key2}[0];<br> $tmp{$key1}{$key2}[1]=$hash{$key1}{$key2}[1]<br> }<br>}<br><br>но если массив будет помассивней, херня получится<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#5 Wed, 15 Oct 2014 09:32:24 GMT &gt; ну а как правильно?<br><br>Трудно сказать, от задачи зависит. В общем случае для копирования сложной структуры можно сделать рекурсивную функцию.<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#4 Wed, 15 Oct 2014 09:02:16 GMT &gt;[оверквотинг удален]<br>&gt; хеш.<br>&gt;&gt; my%tmp=%hash; <br>&gt; Новый хеш %tmp содержит то же, что и старый: одну ссылку на <br>&gt; тот же самый безымянный хеш. Естественно его копия не была создана. <br>&gt; Теперь $hash{cat} и $tmp{cat} - один и тот же хеш. Обращаться к <br>&gt; нему можно и так, и так.<br>&gt;&gt; $tmp{cat}{1}[0]=25; <br>&gt; Тут мы поменяли что-то в недрах всё того же безымянного хеша.<br>&gt;&gt; print"$hash{cat}{1}[0]\n"; <br>&gt; И получили закономерный результат.<br><br>ну а как правильно?<br> https://www.opennet.ru/openforum/vsluhforumID9/9918.html#3 Wed, 15 Oct 2014 08:44:45 GMT &gt; строго говоря это хеш хешей, а с простым хешем всё ок: <br><br>Ага, ссылки.<br><br>&gt; my%hash=( <br>&gt; 'cat'=&gt;{ <br>&gt; 1=&gt;['20','21'], <br>&gt; 2=&gt;['30','31'] <br>&gt; } <br>&gt; ); <br><br>Тут один именованный хеш (%hash), один безымянный хеш и два безымянных массива. Всё это хозяйство связанно друг с другом ссылками.<br><br>%hash содержит один элемент - скаляр $hash{cat}, который является ссылкой на безымянный хеш.<br><br>&gt; my%tmp=%hash; <br><br>Новый хеш %tmp содержит то же, что и старый: одну ссылку на тот же самый безымянный хеш. Естественно его копия не была создана.<br><br>Теперь $hash{cat} и $tmp{cat} - один и тот же хеш. Обращаться к нему можно и так, и так.<br><br>&gt; $tmp{cat}{1}[0]=25; <br><br>Тут мы поменяли что-то в недрах всё того же безымянного хеша.<br><br>&gt; print"$hash{cat}{1}[0]\n"; <br><br>И получили закономерный результат.<br>