Getopt :: commandlinexports Permitir que las SUROutinas dentro de un script exportan las opciones de línea de comandos con Bash Auto Finalización
Descargar ahora

Getopt :: commandlinexports Clasificación y resumen

Getopt :: commandlinexports Etiquetas

Módulo perl perla Exportaciones Getopt

Getopt :: commandlinexports Descripción

Getopt :: CommandlineExports es un módulo Perl destinado a proporcionar la capacidad de tener un solo script Exportar muchos subcomandos de manera constante. En el ejemplo anterior, el script se llama "TestCommandlineExports". En una línea de comandos de estilo bash, los siguientes comandos funcionarían: TestCommandLineExports Twoscosalars --one "ARG1" - Two "Arg2" y imprimiría: ARG1, ARG2 Mientras tanto, ARG2COMMANDINEEXPORTS TWOSCALARS - TWO "Arg2" imprimiría: TwOSCALARS QUE Faltan el argumento: --NetSestCommandlineExports Twoscalars también se puede llamar a través de una interfaz de CGI también. El uso principal de esto fue para proporcionar un método fácil, consistente para proporcionar la capacidad de prueba de la unidad para los scripts. También permite que un solo script exporte múltiples Subcomands y usar advertencias; Utilice GetOPT :: CommandlineExports QW (Regac parseargsbyposition Parseargs Checkargs $ scriptname @exportedsubs% cmdlines); $ ScriptName = QQ ; % cmdlines = (Twosculars => , onehash => , onelist => ,); Sub Twosculars {My% H = (One => Undef, Two => Undef, (Parseargs \ @_, @ {$ CMDLines {Twosculars}}),); Imprimir "Twoscosalars que faltan el argumento requerido: \ n". Únete ("\ n", chequeargs \% h). "\ n" si (chequeargs \% h); devolver "$ h {uno}, $ h {dos} \ n"; } Sub OneHash {My% H = (One => Undef, (Parseargs @ @_, @ {$ cmdlines {onehash}}),); Imprimir "OneHash que falta el argumento requerido: \ n". Únete ("\ n", chequeargs \% h). "\ n" si (chequeargs \% h); imprimir "OneHash \ N"; Únase a la impresión ("\ N", (% {$ h {uno}})); } Sub onelist {My% H = (One => Undef, (Parseargs @ @_, @ {$ cmdlines {onelist}}),); Imprimir "Onlist que falta el argumento requerido: \ N". Únete ("\ n", chequeargs \% h). "\ n" si (chequeargs \% h); Imprimir "OneList \ N"; Únase a la impresión ("\ N", @ {$ H {uno}}); } # La subrutina "principal". No se incluye en el paquete, debe agregarse manualmente a un script si (definido $ ARGV ) {if (definido ({$ argv })) {no estricto 'refs'; My $ SUBREF = SHIFT @ARGV; Únase a la impresión ("\ n", $ SUBREF (@argv)). "\ n" a menos que $ SUBREF = ~ / REGAC /; $ SUBREF ($ scriptname, \ @exportedsubs, \% cmdlines) si $ SUBREF = ~ / REGAC /; Salida 0; }} # Algunos ejemplos de prueba de la unidad: Twosculars "Hola1", "Hello2"; Twosculars {one => "hola1", dos => "hola2"}; Twoscalars "--one hola1 - two hola2"; Twoscosalars "--one", "Hello1", "- Two", "Hola2"; Twoscosalars "--one", "Hola1", "- Two", "Hello2", "--Tres", "Hola3"; # se queja de la página de inicio del producto "desconocido: tres"

Getopt :: commandlinexports Software relacionado