Thread Mit foreach alle Unterelemente eines Elements einer Referenz eines Array of Hashes ausgeben (2 answers)
Opened by pulmo at 2011-09-16 21:40

GwenDragon
 2011-09-16 21:48
#152508 #152508
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
Wichtig: Nie ohne
Code: (dl )
1
2
use strict;
use warnings;
ams Programmanfang programmieren.
Perl meckert dann, wenn was nicht passt und du stolperst nicht über iegrndwelche Probleme.

Code (perl): (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

#! /usr/bin/perl

use strict;
use warnings;

my @blabber=Doktor(); # Funktion in moderner Schreibweise aufrufen!

print $blabber[0]{"komo hu pobe"}; # das funktioniert noch, bin ich stolz drauf
print "\n";

while (my ($key, $value) = each %{$blabber[1]}){ # Hash-Referenz aus Liste in Hash umwandeln, nennt sich auch dereferenzieren
     print "$key, $value\n"; # Es darf ruhig alles in eine zeichenkette "" rein 
}

sub Doktor{
    my @doctors = (
        { "komo hu pobe" => "Zeile 8",
          "momo en mumu" => "Zeile 827"
        },
        { "actor" => "pubo",
          "years" => "irgendwann"
        }
    );
    return @doctors;
}

Last edited: 2011-09-16 22:39:08 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Mit foreach alle Unterelemente eines Elements einer Referenz eines Array of Hashes ausgeben