Maps in Arrays - #169649 (Allgemeines zu Perl)

hlubenow

2013-08-19 23:31

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Man kann in Perl 5 keinen ganzen Hash in ein Array schieben (wie etwa in Python). Man muß das mit Referenzen machen und die am Ende dereferenzieren.
Beispiel:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my @all;

my %m1;
$m1{'eins'} = 1;
$m1{'zwei'} = 2;

my %m2;
$m2{'eins'} = 11;
$m2{'zwei'} = 12;

$all[0] = \%m1;
$all[1] = \%m2;

print $m1{'eins'} . "\n";
print $m1{'zwei'} . "\n";

my %test = %{$all[0]};

my $i;
foreach $i (keys(%test)) {
    print "$i \t $test{$i}\n";
}