PDF-Version - freiesMagazin

say $magisches_quadrat ->[1]->[0];
# sagt: 1
say $magisches_quadrat ->[1][0];
# sagt: 1
Den zweiten Pfeil kann man weglassen, da Perl
auch so weiß, was gemeint ist. Nur den ersten
Pfeil muss man dazu schreiben, um Zweideutigkeiten
zu vermeiden. Folgendes ist ein völlig anderer
Ausdruck:
say $magisches_quadrat [0][0];
Das erste Beispiel war ein Skalar, der auf ein Array
zeigt. Im zweiten Beispiel bekommt man ein
Element eines Arrays. Zufällig ist es eine Array-
Referenz, von der wiederum das erste Element
verlangt wird. Das ist eine Struktur, die so definiert
wurde:
my @magisches_quadrat = (
[8,1,6],
[3,5,7],
[4,9,2],
);
Jetzt lichtet sich auch der Nebel um die Aussage,
dass Referenzen die Bedeutung der Sigel stören.
$magisches_quadrat[0] sieht nach einem Skalar
aus, ist aber in Wirklichkeit ein Array. Oder zumindest
eine Referenz auf einen Array.
Richtig unelegant wird es, möchte man das Array,
auf den $magisches_quadrat[0] zeigt, in eine
andere Array-Variable kopieren:
my @zeile = @{ $magisches_quadrat [0] };
Hier reicht es nicht, den gewollten Kontext zu erzwingen,
indem man nur ein @ davor setzt wie
bei @$aref. Die geschweiften Klammern müssen
klarstellen, dass nicht $magisches_quadrat,
sondern $magisches_quadrat[0] in den Array-
Kontext gesetzt werden muss. Jetzt kann das =
die Brücke spannen und Klone der Schäfchen
auf der Weide rechts wandern brav über den
Bach in @zeile hinein.
my $zeile = $magisches_quadrat [0];
Das wäre zwar einfacher, aber in dem Fall erhält
man nur die Adresse einer Zeile (Unterarray) in
@zeile. Wird ein Schubfach von $zeile->[0]
aus entleert, gibt es auch nichts mehr von
$magisches_quadrat[0][0] aus gesehen.
Hashes verstöpseln
Hashes in Hashes, Hashes in Arrays, gerichtete
Graphen, die Wege über Königsberger Brücken,
fast jede erdenkliche Datenstruktur kann gebaut
werden, wenn man nach den gleichen Regeln
auch Referenzen auf Hashes verwendet. Als abschließendes
Beispiel sei eine Struktur erzeugt,
die Spielstände eines Schachspiels speichern
kann. Dazu braucht es einen Hash mit den
Schlüsseln A bis H (die Spalten). Jeder Wert ist eine
Referenz auf ein Array der Länge 8 (0..7, die
Zeilen). Natürlich könnte man auch ein Array mit
Hash-Referenzen aufziehen, aber so lässt sich
später schreiben:
say $feld{'A'}[3];
# sagt: "Dame"
PROGRAMMIERUNG
Das entspricht der gewohnten Sprache der
Schachspieler und erzeugt weniger Verwirrung.
Hochtrabend wird dieses Prinzip auch „Domain-
Driven Design“ (DDD) genannt und sagt eigentlich
nicht mehr als: „Schreibst du für jemand ein
Programm, dann verwende seine Logik und seine
Fachvokabeln.“
Perl hat die wunderbare Eigenschaft, eine solche
Struktur nicht vorbereiten zu müssen. Nach
einem simplen my %feld; könnte man die Abfrage
$feld'A'[3]; machen und bekommt nur
ein korrektes undef als Ergebnis. Man ist hier
halt weniger streng als anderswo. Während dieser
Aktion geschah aber heimlich, still und leise
noch etwas, was Außenseiter nicht erwarten.
Um im Unterarray nachsehen zu können, wurde
im Hash der Schlüssel A angelegt und in seinem
Wert die Referenz auf einen ebenfalls neu
erschaffenes, leeres Array abgelegt. In kaum einer
anderen Sprache gibt es diese „Autovivifikation“.
Sie erlaubt unvorbereitete Zuweisungen
wie $feld'D'[55] = 'Läufer';, sagt aber leider
auch niemals nein, selbst wenn eine Zeile 55
ausgesprochen unerwünscht ist.
Noch ein letzter Hinweis: Ist es dennoch gewünscht,
die beschriebene Datenstruktur aufzubauen,
sind for und ähnliche Befehle sehr nützlich.
Anstatt alles auszuschreiben
my %feld = (
A => [0,1,2,3,4,5,6,7],
B => [0,1,2,3,4,5,6,7],
...
© freiesMagazin CC-BY-SA 3.0 Ausgabe 12/2011 38