Getopt :: commandlineexports. Erlauben Sie Suroutines innerhalb eines Skripts, um Comand-Zeilenoptionen mit Bash-automatischer Fertigstellung zu exportieren
Jetzt downloaden

Getopt :: commandlineexports. Ranking & Zusammenfassung

Getopt :: commandlineexports. Stichworte

Perl-Modul Perl Exporte Getopt.

Getopt :: commandlineexports. Beschreibung

GETOPT :: commandlineexports ist ein Perl-Modul, das dazu bestimmt ist, die Fähigkeit bereitzustellen, ein einzelnes Skript zu haben, das viele Unterbefehl auf konsistierender Weise exportieren kann. In dem obigen Beispiel wird das Skript "testcommandlineexports" genannt. Auf einer Bash-Style-Befehlszeile würden die folgenden Befehle funktionieren: testcommandlineexports twoscalars --one "arg1" - two "arg2" und drucken: arg1, arg2while testcommandlineexports twoscalars - two "arg2" würde drucken: Twoskalars fehlen das erforderliche Argument: --OeReTestCommandLineExports Twoskalare können auch über eine CGI-Schnittstelle aufgerufen werden. Das Prinzipnutzung dabei bestand darin, eine einfache, konsistante, Methode bereitzustellen, um die Einheitstestfähigkeit für Skripts bereitzustellen. Es ermöglicht auch ein einziges Skript, mehrere Unterbefehl zu exportieren, und ermöglicht mit der mitgelieferten Bash-automatischen Fertigstellungsfunktion die Unterbefehle und Optionen, um sich gut mit dem Bash-Shell-Code zu integrieren. Warnungen verwenden; Verwenden von getopt :: commandlineexports QW (Regac ParseargsByposition Parseargs Checkargs $ scriptName @Exportedsubs% Cmdlins); $ scriptName = qq ; % cmdlines = (Twoskalare => , OneHash => , onelist => ,); SUB TWOSCALARS {MY% H = (One => undef, zwei => undef, (Parseargs \ @_, @ {$ cmdlins {twoscalare}}); Drucken "Twoskalars fehlt das erforderliche Argument: \ n". Join ("\ n", Checkargs \% h). "\ n", wenn (Checkargs \% h); zurückgeben "$ h {One}, $ h {zwei} \ n"; } Sub OneHash {my% h = (one => undef, (parseargs \ @_, @ {$ cmdlins {oneHash}}),); Drucken "Einhash fehlt das erforderliche Argument: \ n". Join ("\ n", Checkargs \% h). "\ n", wenn (Checkargs \% h); drucken "oneshash \ n"; drucken Join ("\ n", (% {$ h {One}})); } Sub-Onelist {my% h = (one => undef, (parseargs \ @_, @ {$ cmdlins {onelist}}); Drucken Sie "Online-Missing-Missing-Argument: \ n". Join ("\ n", Checkargs \% h). "\ n", wenn (Checkargs \% h); drucken "onelist \ n"; drucken Join ("\ n", @ {$ h {one}}); } # Die "Haupt" -Subroutine. Nicht in das Paket enthalten, muss manuell in ein Skript hinzugefügt werden, wenn (definiert $ argv ) {if (definiert ({$ argv })) {keine strengen 'Refs'; mein $ subref = shift @argv; drucken Join ("\ n", $ subref (@argv)). "\ n", es sei denn, $ subref = ~ / recac /; $ subref ($ scriptname, \ @exportedsubs, \% cmdlines), wenn $ subref = ~ / recac /; Ausfahrt 0; }} # Einige Einheiten-Testbeispiele: Twoskalare "Hello1", "Hello2"; Twoskalare {One => "Hello1", zwei => "Hello2"}; Twoskalare "- One Hello1 - Two Hello2"; Twoskalare "--one", "Hello1", "- two", "Hallo2"; Twoskalare "--one", "Hallo1", "--two", "Hello2", "--three", "Hallo3"; # beschwert sich über "unbekannte Option: drei" Homepage des Produkts

Getopt :: commandlineexports. Zugehörige Software