Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
my %keyHash = ();
$keyHash{"a"} = 345;
$keyHash{"b"} = 2;
my %valueHash = ();
$valueHash{"c"} = 3;
$valueHash{"d"} = 4;
my %hash = ();
my $keyHashAsRef = \%keyHash;
$hash{$keyHashAsRef} = \%valueHash;
foreach my $key(keys(%hash)){
my %kHash =%{$key};
print "TEST: " . $kHash{"a"} . "\n";
}
3 Einträge, 1 Seite |