in reply to Hash reference Problem
it's just a more compact way of showing the structure'2' => { 'test1' => { '1' => $VAR1->{'1'}{'test1'},
try this
use Data::Dumper; # VERSION 1 my $ref_1; $ref_1->{'1'}->{'test1'}->{'key1'} = '1'; $ref_1->{'1'}->{'test1'}->{'key2'} = '2'; $ref_1->{'1'}->{'test1'}->{'key3'} = '3'; $ref_1->{'1'}->{'test2'}->{'key1'} = '4'; $ref_1->{'1'}->{'test2'}->{'key2'} = '5'; $ref_1->{'1'}->{'test2'}->{'key3'} = '6'; $ref_1->{'2'}->{'test1'}->{'key1'} = '1'; $ref_1->{'2'}->{'test1'}->{'key2'} = '2'; $ref_1->{'2'}->{'test1'}->{'key3'} = '3'; $ref_1->{'2'}->{'test2'}->{'key1'} = '4'; $ref_1->{'2'}->{'test2'}->{'key2'} = '5'; $ref_1->{'2'}->{'test2'}->{'key3'} = '6'; foreach my $b1 (keys %{$ref_1->{'1'}}) { if(exists $ref_1->{'2'}->{$b1}) { $ref_1->{'2'}->{$b1}->{'1'} = $ref_1->{'1'}->{$b1}; } } $Data::Dumper::Deepcopy=1; print Dumper $ref_1;
|
|---|