Opened by mtbf40 at 2015-05-19 15:44
User since
2012-05-04
1075 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-05-04
1075 Artikel
BenutzerIn
Suchst du sowas:
Such mal nach deep copy oder ähnlichen Begriffen. Du musst ja Arrays und Hashes unterschiedlich behandeln. Außerdem ist natürlich die Frage zu klären, ob nur existierende Werte ersetzt werden sollen oder alles übernommen werden soll (also auch Werte, die im Original noch nicht existieren).
Mit $self verbinden: wo ist das Problem? Wie oben, also mit $hxx = $self; anfangen.
Code (perl): (dl
)
1 2 3 4 5 6 7
my $h = {k1 => { k2 => { k3 => 'wert' }}}; @keys = qw(k1 k2 k3); $hxx = $h; $hxx = $hxx->{$_} for @keys[0..$#keys-1]; $hxx->{$keys[-1]} = 'neuerWert'; use Data::Dumper; print Dumper $h;
Such mal nach deep copy oder ähnlichen Begriffen. Du musst ja Arrays und Hashes unterschiedlich behandeln. Außerdem ist natürlich die Frage zu klären, ob nur existierende Werte ersetzt werden sollen oder alles übernommen werden soll (also auch Werte, die im Original noch nicht existieren).
Mit $self verbinden: wo ist das Problem? Wie oben, also mit $hxx = $self; anfangen.