Im folgenden wird beschrieben, wie man mit einem Array arbeiten kann:
my
@feld;
open
(DATA, "datei-name.data");
while
(<DATA>);
$line=$_;
chomp($line);
push(@feld,
$line);
}
close(DATA);
In dem vorangegangenen Block wurde ein Feld definiert, eine Datei zeileweise eingelesen
und
die Zeilen in einem Array abgelegt.
Im nächsten Schritt soll das Array ausgegeben werden:
print
@feld; # gibt das Feld hintereinander ohne "Trennung" aus.
das ist zum "Debugging" zwar hilfreich, aber nicht für die Benuzter. Besser
wäre:
print
"Feld ist @feld\"; # gibt das Feld hintereinander mit einem Leerzeichen als Trennung
aus.
Wenn ein Feld aber "definiert" dargestellt werden soll ist die folgende
Syntax besser:
print
"Feld ist ", join(', ', @feld);
Mit dem folgenden Anweisungen bearbeitet man das Array elementweise (nachdem es
umgekehrt sortiert wurde):
foreach
$line (reverse sort(@feld)) {
print
"$line\n";
}
print
"--- das waren jetzt ",$#feld+1," Zeilen!\n";
print
"--- anders ausgedrückt waren es ",scalar(@feld)," Zeilen\n";
Wenn die Array-Variable in einem Skalaren Kontext (in diesem Fall erzwungen durch
"scalar()") benutzt wird, liefert sie die Anzahl der Elemente.
