Opened by Froschpopo at 2008-07-08 10:47
Da bei renees Variante der komplette Hash kopiert wird, würde ich eher Hash-Slices empfehlen:
Beispiel, %add_hash wird %hash hinzugefügt:
MfG
Code: (dl
)
@hash{ @keys } = @values;Beispiel, %add_hash wird %hash hinzugefügt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
my %hash = (
-a => 1,
-b => 2,
-c => 3,
);
print Dumper( \%hash ), "\n\n";
my %add_hash = (
-d => 4,
-e => 5,
-f => 6,
);
my @keys_add_hash = keys %add_hash;
@hash{ @keys_add_hash } = @add_hash{ @keys_add_hash };
print Dumper( \%hash );
MfG