Opened by Lebewesen at 2012-05-21 14:57
User since
2012-05-04
1075 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-05-04
1075 Artikel
BenutzerIn
Wenn ich dich richtig verstehe, hast du zwei Hashes, die jeweils Arrayrefs als Values haben, aber die gleichen Keys.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use Data::Dumper;
my %hash1 = (a => [1, 2], b => ['k', 'm']);
my %hash2 = (a => [3, 4], b => ['o', 'p']);
my %result;
for (keys %hash1) {
$result{$_} = [@{$hash1{$_}}, @{$hash2{$_}}];
}
print Dumper \%result;
#oder mit Aenderung:
for (keys %hash1) {
push @{$hash1{$_}}, @{$hash2{$_}};
}
print Dumper \%hash1;