|< 1 2 >| | 18 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use Data::Dumper;
my %hash = (
Titanic => [ "Anno 1912", "Southampton" ],
Cheopspyramide => [ "Anno ca. -3000 plusminus 1500", "Gizeh" ],
Perl => [ "Kamel" ],
);
my %reverse_lookup;
foreach my $arrayref ( keys %hash ) {
foreach my $element ( @{ $hash{$arrayref} } ) {
$reverse_lookup{$element} = $arrayref;
}
}
print Dumper \%reverse_lookup;
|< 1 2 >| | 18 Einträge, 2 Seiten |