Perl Programmierung - Grundkurs

Titel: Perl Programmierung - Grundkurs
Autoren: Barbara Hohensee

Vom Netzwerk:

vordifinierten Variablen dar. Denn sie wird von vielen Operatoren und Funktionen als Defaultvariable eingesetzt.

    Ein Beispiel für den Einsatz von $_

    #!C:\perl\bin\perl.exe -w

    while(<>)
    {
       chomp;
       print;
    }

    Das Programm liest eine Eingabe von STDIN (Standardeingabekanal). Da keine Variable bei der Leseoperation <> angeben wird, kommt $_ zum Einsatz.
    Die Funktion chomp schneidet ein Zeilenendekennzeichen ab. Die Ausgabe erfolgt mit print, wobei auch hier wieder $_ zum Einsatz kommt, da print keine weitere Angabe macht.

Listen


Listendefinition

    Die Liste mit ihren Elementen besitzt kein eigenes Präfix. Sie wird durch die öffnenden runden Klammern eingeleitet und aus den einzelnen Werten der Liste aufgebaut.
    Dabei können Sie sowohl einzelne konstante Werte angeben als auch skalare Variablen, Arrays oder weitere Listen. Hier ein paar Beispiele:

    ("Ulrich"; "Clara", "Angelika");
    ($name1, $name2, $name3);
    ("Michael", @namen, "Helena");
    (1, 2, (3, 4), 5, 6);


Quotierung und Bereichsabkürzung

    Mit der Quotierung qw steht ein Hilfsmittel zur Verfügung, dass die Eingabe längerer Listen vereinfachen kann. Generell setzt Perl bei der Quotierung die trennenden Kommata automatisch. Ausserdem werden bei nichtnumerischen Daten auch die doppelten Anführungsstriche gesetzt.

    qw(1 2 3 4)                             ->              (1, 2, 3, 4)
    qw(a b c d)                             ->              ("a", "b", "c", "d")

    Wenn Sie eine Liste von Werten erzeugen wollen, steht Ihnnen der ..-Operator zur Verfügung, mit dem Sie Bereiche angeben:

    statt               ("a", "b", "c", "d")              ->               ("a" .. "d")

    Oder für numerische Werte:

    (1 .. 10, 15, 20 .. 100)
    (1.1 .. 2.0)



Listen und Zuweisungen

    Listen können bei der Zuweisung sowohl auf der linken als auch auf der rechten Seite des Gleichheitszeichens stehen.
    Damit wird folgendes Programmstück möglich, das einen Austauch der Werte in den beteiligten skalaren Variablen sehr leicht möglich macht:

    #!C:\perl\bin\perl.exe –w

    $a = 1;
    $b = 2;
    print $a, $b, "\n";
    ($b, $a) = ($a, $b);
    print $a, $b, "\n";



Listenzugriffe

    Oft wird eine Liste im Zusammenhang mit einem Array eingesetzt. In dem Fall werden die Listenelemente in das Array übertragen und können mit Hilfe des Arrayzugriffsoperators (Index) ausgelesen werden:

    @array = (1, 2, 3);
    print $array[0];

    Eine weitere Möglichkeit zur Auswertung von Listen besteht darin, die einzelnen Elemente an passende Variablen zu binden und die weiteren Operationen mit diesen Variablen durchzuführen:

    ($a, $b, $c) = (1, 2, 3);
    print $a;

    Eine dritte Möglichkeit besteht im Einsatz des Indizierungsoperators, der für Arrays bestimmt ist:

    $a = (1, 2, 3)[0];
    print $a;


Arrays

    Eine weitere wichtige Datenstruktur sind Arrays, die eng mit den Listen verwandt sind. Mit ihnen können gleichartige oder verschiedene Datentypen unter einem gemeinsamen Namen angesprochen werden.

    Die einzelnen Elemente des Arrays können nur über einen ganzzahligen numerischen Index angesprochen werden.


Arraydefinition

    Arrays werden durch das @-Zeichen identifiziert.


Wertebelegung

    Wenn dem Array nicht von Beginn an Werte zugewiesen wurden, ist es ein leeres Array analog zur Zuweisung der leeren Liste ( ) :

    @a = ( );
    @a = ("a", "b", "c");

    Um ein Array auf die Grösse 0 zurückzusetzen, weisen Sie ihm die Leere Liste zu:
    @array = ( );
    oder Sie wiesen seiner Länge den Wert –1 zu:
    $#array = -1


Arrayindex

    Standardmässig beginnt der Arrayindex bei 0 und geht für ein Array der Grösse N bis N-1.
    Den Startwert kann man allerdings verändern, indem der Variablen $[ ein anderer Startwert zugewiesen wird, der für alle Arrays gilt! Mit der skalaren Variable $#array erhalten Sie den Index des letzten Wertes zurück und können so, unter Kenntnis des Indexwertes der ersten Position, die Grösse des Arrays bestimmen.

    #!C:\perl\bin\perl.exe –w

    @a = (1, 2, 3);
    print $#a . "\n";
    $a[10] = 9;
    print $#a . "\n";
    print @a . "\n";


Arrayzugriffe

    Der Zugriff auf ein Arrayelement erfolgt mit Hilfe der eckigen Klammern, zwischen denen der Indexwert der gewünschten Position steht:

    Beim Zugriff auf die einzelnen Arrayelemente

Vom Netzwerk: