Einmal angenommen es wird ein Script benötigt zu welchen optional ein Schalter mit einem bool'schen Wert und ein Schalter mit einem bestimmten Literal angegeben werden sollen. Die Aufgabenstellung sei beispielsweise diese:

• Schalter -s gesetzt soll heißen: Speichern,
• Mit Schalter -n soll es möglich sein der zu speichernden Datei einen Namen zu geben.

Der Quellcode unter Verwendung des Moduls Getopt::Std; ist ganz einfach was die Auswertung der Schalter betrifft:

use Getopt::Std; getopts('sn:') or die "Ungueltige Option!\n"; $opt_s and print "Option s ist gesetzt auf $opt_s\n"; $opt_n and print "Parameter n hat den Wert $opt_n\n";

Beschreibung

Im Argument der Methode getopts werden die Schalter definiert welche beim Aufruf des Scripts als Parameter gesetzt werden können. Schalter s ist dabei ein bool'scher Wert und der Schalter n verlangt nach einem Wert (das macht der Doppelpunkt).

Gleichzeitig werden die Variablen $opt_s und $opt_n ins Leben gerufen.

Ein Aufruf des Scripts ergibt also je nach Schalter die folgenden Ergebnisse:

perl script.pl -s -> Option s ist gesetzt auf 1 perl script.pl -n myname -> Parameter n hat den Wert myname

Soll die Abfrage der Optionen im Script paarweise (key - value) erfolgen, so kann die Methode getopts wie folgt verwendet werden:

use Getopt::Std; getopts('sn:', \%opts) or die "Ungueltige Option!"; while (($key,$value) = each %opts) {   print "$key = $value\n"; }

Beschreibung

Der wesentliche Unterschied besteht darin dass die im Argument der Methode getopt deklarierten Schalter stets nach einem Wert verlangen. Schauen wir uns dazu einmal ein weiteres Beispiel an:

use Getopt::Std; getopt('a'); $opt_a and print "Option a ist gesetzt auf $opt_a\n";;

Ein Aufruf dieses Scripts mit dem Schalter -a gefolgt von einem Wert

perl script.pl -a Erwin

ergibt also die folgende Ausgabe:

Option a ist gesetzt auf Erwin

Ähnlich wie mit getopts im Argument ein Hash definiert werden kann, ist dies auch im Argument der Funktion getopt möglich:

getopt('abc',\%opts); foreach $key(keys %opts){   print "$key = $opts{$key}\n"; } Aufruf: perl script.pl -a Erwin Ergebnis: a = Erwin

Weitere Möglichkeiten