2015-03-06T09:30:55 peterb

... da sollte ich noch ein wenig nachlesen

2015-03-06T09:30:55 peterb

Ich habs aber soweit zum laufen gebracht, das ich was damit anfangen kann.

Code (perl): (dl )

1
2
3
4
5
6
7

foreach my $k (keys %HoAoA) {
   foreach (@{$HoAoA{$k}}) {
      foreach ($_) {
             print "$k - @{$_}\n";
      };
   };
};

1
2
3
4
5
6

for my $k (keys %HoAoA) {
    print "$k\n";
    for my $ar (@{$HoAoA{$k}}) {
        print " "x4 , join " ", @$ar, "\n";
    };
};