Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: Copy an hash modifying some selected values

by ikegami (Pope)
on Nov 07, 2018 at 19:24 UTC ( #1225380=note: print w/replies, xml ) Need Help??


in reply to Re^2: Copy an hash modifying some selected values
in thread Copy an hash modifying some selected values

Did you look at the module I mentioned?

use Data::Diver qw( DiveVal ); my @paths = ('key1', 'key2:key22', 'key2:key23'); for my $path (@paths) { my @path = split(/:/, $path); my $new_val = ...; DiveVal(\%hash, map \$_, @path) = $new_val; }

or

sub dive_val :lvalue { my $p = \shift; $p = \( $$p->{$_} ) for @_; $$p } my @paths = ('key1', 'key2:key22', 'key2:key23'); for my $path (@paths) { my @path = split(/:/, $path); my $new_val = ...; dive_val(\%hash, @path) = $new_val; }

Replies are listed 'Best First'.
Re^4: Copy an hash modifying some selected values
by Anonymous Monk on Nov 08, 2018 at 08:36 UTC
    Thank you!
    I still get an error with your version of the routine so I will use Data::Diver.
    I would prefer your routine since it is pure Perl... just in case you would want to fix my example below.
    use strict; use Data::Dumper; use Data::Diver qw( DiveVal ); use Storable 'dclone'; my %hash1 = ( key1 => 'relative_path', key2 => { key21 => 'another_relative_path', key22 => '/an_absolute_path', key23 => 'relative_path', }, key3 => '', key4 => 4 ); my $hash2 = dclone \%hash1; my $hash3 = dclone \%hash1; my $home = '/home'; my @paths = ('key1', 'key2:key22', 'key2:key23'); for my $path (@paths) { my @path = split(/:/, $path); my $val = dive(\%hash1, @path); my $new_val = (substr($val,0,1) eq '/') ? $val : "$home/$val"; DiveVal($hash2, map \$_, @path) = $new_val; # dive_val($hash3, map \$_, @path) = $new_val; } die Dumper \@paths,\%hash1,$hash2; sub dive { my $r = shift; $r = $r->{shift(@_)} while $r && @_; return $r; } sub dive_val :lvalue { my $p = \shift; my $r = \( $$p->{$_} ) for @_; $$p }

      $r should be $p. Should have been obvious since strict catches that error. Fixed in original.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1225380]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2019-02-17 01:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I use postfix dereferencing ...









    Results (95 votes). Check out past polls.

    Notices?