[WarrenFaith]

Dieses Tutorial wurde geschrieben von: WarrenFaith

Bemerkung: Das im Forum verwendete Syntaxhighlighting für Perl hat einen kleinen Fehler. Bei den in den Skripten benutzen Variablen $#ARGV und $#_ wird das #-Symbol als Kommentarsymbol interpretiert, weshalb der danach folgende Quellcode fehlerhafterweise farblich als Kommentar hervorgehoben wird. Perl selbst erkennt aber, dass es sich in diesen Fällen NICHT um ein Kommentar handelt, auch wenn die Raute (das #-Symbol) sonst ein Kommentar einleitet. Ich bitte dies zu entschuldigen.

Parameterhandling bei Perl

Parameter werden bei Perl sehr einfach benutzt. Gehen wir davon aus, dass dein Perlskript ein paar Parameter übergeben bekommt. Die Parameter werden durch Kommata getrennt. Es muss also beim Aufruf darauf geachtet werden, dass Stringparameter die Leerzeichen enthalten mit " umschlossen sind, damit Perl diese Leerzeichen nicht als Parametertrennung interpretiert. Ein Beispielaufruf könnte dann so aussehen:

perl skript.pl "Ich bin Parameter 1" parameter2 12345

Beim Aufruf des Skripts werden die Parameter in das Array @ARGV geschrieben und sind dort über den Zahlenindex beginnend bei 0 abrufbar. Das folgende Skript gibt lediglich die Parameter wieder auf den Bildschirm aus.

#!/usr/bin/perl -w
use strict;
 
#Variablendefinition
my $parameter;
 
#Ausgabe der Parameter
foreach $parameter (@ARGV)
{
    print $parameter."\n";
}

Ausgabe des Skripts wäre mit dem oben genannten Aufruf:

Ich bin Parameter 1
parameter2
12345

Gelegentlich ist es nützlich herauszufinden, wieviele Parameter dem Skript übergeben werden. Die Zahl des letzten Index im Parameter-Array @ARGV ist in der Variablen $#ARGV gespeichert.
Verlangt das Skript also 4 Parameter, sollte direkt am Anfang überprüft werden, ob es auch 4 Parameter gibt.

#!/usr/bin/perl -w
use strict;
 
#Variablendefinition
my $parameter;
 
#Ausgabe der Parameter
if($#ARGV != 3)
{
    print "Es sind nur ".($#ARGV + 1)." Parameter uebergeben worden.\n";
    print "Es werden aber 4 benoetigt.\n";
}

Da der Index eines Arrays bei Null beginnt, muss bei einem Vergleich wie im Skript die gewünschte Anzahl also um eins tiefer sein, als tatsächlich gewollt. Index 0 heißt 1 Paramter, Index 1 heißt 2 Parameter und so weiter. Damit die Anzahl bei der Ausgabe der korrekten Parameteranzahl entspricht, muss die Variable $#ARGV um eins erhöht werden. Sind keine Parameter übergeben, so hat die Variable $#ARGV den Wert -1, daher wird auch hier die korrekte Anzahl, sprich 0 (Zahl Null), angezeigt.


Parameterhandling bei Funktionen

Funktionen arbeiten bei Perl ebenfalls mit Parametern, allerdings werden bei Perl die Funktionen nicht wie in den meisten Hochsprachen mit fest definierten Parametern programmiert. Ein normaler Funktionskopf bei Perl sieht wie folgt aus:

#!/usr/bin/perl -w
use strict;
 
#Variablendefiniton
my $parameter;
 
#Funktion "meine_funktion"
sub meine_funktion
{
    #Durchlauf des Parameterarrays
    foreach $parameter (@_)
    {
        #Ausgabe des Eintrags im @_ Array
        print $parameter." ";
    }
}
 
#Aufruf der Funktion kann so aussehen
&meine_funktion("Hallo", "du", "da");

Ausgabe des Skripts:

Hallo du da

Wie in dem Skript zu sehen ist, kann eine Funktion mit Parametern aufgerufen werden, obwohl die Funktion selbst keine definiert hat. Demzufolge muss in jeder Funktion überprüft werden, wieviele Parameter übergeben werden und was damit gemacht werden soll. Die Funktionsparameter sind in dem Array @_ gespeichert und können genauso wie das @ARGV Array behandelt werden. In der Variablen $#_ ist ebenfalls der höchste Index des @_ Arrays hinterlegt.