Arrays in Perl - Besonderheiten

Was ein Array in Perl ist sollte ja hinlänglich bekannt sein.

Es gibt allerdins auch noch einige Besonderheiten, auf die man hier hinweisen könnte:

Anzahl der Elemente eines Arrays
Will man wissen, wie viele Elemente in einem Array vorhanden sind, kann man dies ganz einfach mit:

$anzahl=@array;

feststellen.

Versucht man allerdings ein:

print @array;

so wird NICHT die Anzahl der Elemente ausgegeben, sondern die Array-Elemente selbst.
Ein

print scalar(@array);

funktioniert hingegen wie gewünscht, da explizit darauf hingewiesen wird, einen Skalar, und das ist ja wieder die Anzahl der Elemente, zu erzeugen.

Übrigens:
Ein

print $array[$anzahl];

ist auch ziemlich erfolglos, da die Zählung der Elemente bei Arrays bei 0 anfängt.
Der Wert $anzahl ist also der Wert für das nächste, neue Element!

Letztes Element eines Arrays
Man könnte das letzte Element eines Array so auslesen:

$anzahl=@array;
$letztes=$anzahl-1;
$element=$array[$letztes];

oder auch so:

$element=$array[$#array];

Funktioniert, ist aber etwas umständlich.
Einfacher geht es mit

$element=$array[-1];

Das vorletzte Element wäre entsprechend $array[-2]; usw.

Werte aus Array auslesen
Aus einem Array kann man ja mit

$wert=$array[$element];

auslesen. Beachten Sie dabei die Schreibweise mit dem $ und nicht dem @, also nicht
$wert=@array[$element];
Dieses würde zwar auch funktionieren, da aber ein Skalar den Rückgabewert ergibt, sollte man das $ verwenden, das ja auf einen Skalar hinweist.

Einem Element einen Wert zuweisen
"Normalerweise" fügt man einem Array ja Elemente per push, unshift oder splice hinzu. Aber auch folgendes geht:

@a=("test","test1");
$a[10]="test10";
print join("\n",@a);

Es wird direkt das Element 10 gesetzt, die Elemente 2 - 9 werden als leere Elemente erzeugt.

Alle Elemente eines Arrays ausgeben

Um alle Elemente eines Arrays auszugeben, gibt es verschiedene Möglichkeiten.

Mit for

for ($i=0;$i<@array;$i++){
print "$array[$i]\n";
}

Mit foreach

foreach (@array){
print "$_\n";
}

Mit join

print join("\n",@array);

All die vorgestellten Methoden zeigen alle Elemente eines Arrays an, getrennt durch ein \n.

Kommentare zum Beitrag "Arrays in Perl - Besonderheiten"

Kommentar von any

Dem Autor ist ein kleiner Fehler eingerutscht.
Im Teil: Array ausgeben steht

for ($i=0,$i<@array;$i++){
print "$array[$i]\n";
}

Sollte eigentlich statt Komma in der for-Anweisung ein Semikolo stehen:

for ($i=0;$i<@array;$i++){
print "$array[$i]\n";
}

Kommentar von Admin

Danke für den Hinweis.

Kommentar von Greg

Sehr guter Artikel.

Trifft genau das, was ich gesucht hatte. Vor allem weil die Möglichkeiten kurz und knapp verständlich beschrieben sind und sich nicht über zehn Seiten ziehen ;)

Kommentar von Phil

In Perl lässt sich ein Array einfach mit foreach ausgeben, wenn man keinen Index braucht:

foreach ( @array ){
print $_;
}

siehe: http://www.hidemail.de/blog/foreach-perl.shtml

Kommentar von Perlnoob

Danke ;)
Der Artikel ist echt gut gelungen

Liebe grüße aus Köln.

Kommentar von Dieter

In Perl lässt sich ein Array (noch) einfacher mit for ausgeben, wenn man keinen Index braucht:

print "$_\n" for @array;

Kommentar von Roman

Super, danke für die Tipps. Guter Artikel!

Thema: Perl Arrays

Der Beitrag "Arrays in Perl - Besonderheiten" wurde 125502 mal gelesen.