Mit foreach alle Unterelemente eines Elements einer Referenz eines Array of Hashes ausgeben (gelöst) - #152508 (Allgemeines zu Perl)

GwenDragon

2011-09-16 21:48

User since
2005-01-17
14532 Artikel
Admin1

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 )

#! /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, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel