Re^3: Copy an hash modifying some selected values

[ikegami]

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;
}

[Anonymous Monk]

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
}

[ikegami]

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