Komplexe Datenstruktur in Perl aufbauen - #133710 (Allgemeines zu Perl)

pktm

2010-02-26 13:17

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Tipps für deinen Ansatz: benutze strict und warnings, die sagen die sogar bei deinem Ansatz, was falsch gelaufen sein könnte.

Code: (dl )

1
2
3

#!/perl/bin/perl
use strict;
use warnings;

Einen Hash definierst du mit dem Prozent-Zeichen und *runden* Klammern:

Code: (dl )

my %hash = (); # leerer hash
my %katzen = (
    garfield => 'doof', # mit Werten
);

Auf einen existierenden Hash greifst du mit dem Dollar-Zeichen und geschweiften Klammern zu:

Code: (dl )

my %katzen = (
    garfield => 'doof', # mit Werten
);

print $katzen{garfield};

Verschachtelte Datenstrukturen gehen in Perl nur mit Referenzen. Beispiel:

Code: (dl )

my %hash = ();
my %hash2 = ();

$hash{referenz} = \%hash2;

Auf die Referenzen greifst du auch anders zu:

Code: (dl )

my %tiere = (); # leerer hash
my %katzen = (
    garfield => 'doof', # mit Werten
);

$tiere{katzen} = \%katzen;

print $tiere{katzen}->{garfield}; # man bemerke den Pfeil nach {katzen}

Mehr Infos zu Hashes: Wie erstelle ich ein Hash of Hashes aus einem Array?

Mehr Infos zu Referenzen: perlreftut

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )