Script :: Toolbox Script :: Toolbox es un marco Perl para los scripts de negocios diarios.
Descargar ahora

Script :: Toolbox Clasificación y resumen

Script :: Toolbox Etiquetas

marco de referencia Módulo perl perla Marco Perl Scripts de negocio

Script :: Toolbox Descripción

Script :: Toolbox es un marco Perl para los scripts de negocios diarios. Script :: Toolbox es un marco Perl para el Scripts de Negocios Daily.Synopsis Use Script :: Toolbox QW (: Todos); o use Script :: Toolbox QW (Sistema de archivo de Uso de la tabla de salida de salida de registro abierto) $ E = Script :: Caja de herramientas-> Nuevo (); # # registro # log ("Mensaje de registro"); # Registro al registro de STDERR ("Mensaje de registro", 'STDERR'); # Registro a STDERR LOG ("Mensaje de registro", 'STDOUT'); # Registro al registro STDOUT ("Mensaje de registro", '/ TMP / X'); # log to / tmp / x log ("Mensaje de registro", nuevo IO :: Archivo "/ TMP / XXX"); # Log to / TMP / XXX Script :: Caja de herramientas-> Nuevo ({logdir => {mod => '= s', desc => 'directorio de registro', Mand => 1, Predeterminado => '/ var / log' }}); Registro ("mensaje de registro"); # Registro a /var/log/.log Log ("Mensaje de registro", 'syslog', 'severidad', 'TAG'); # Registro a través de Syslogd # # Imprimir tablas formateadas, como: # Imprimir unirse "N", @ {$ t}; $ t = $ e-> Tabla (); $ t = $ e-> Tabla (, '|'); $ t = $ e-> Tabla (, , , ); $ t = $ e-> Tabla ({'Título' => 'Ejemplo de hash', 'cabeza' => , 'DATOS' => , , ]]}); $ t = $ e-> Tabla ({'Título' => 'Hash con cabezales de columna automática (F1, F2, F3)', 'DATOS' => }); # # Opciones de línea de comandos # $ TB = Script :: Caja de herramientas-> Nuevo ({File => {Mod => '= S', Desc => 'Descripción', Mand => 1, Predeterminado => '/ bin / cat '}}); $ file = tb-> getopt ('archivo'); # PRINCIDO, use el siguiente archivo $ / TB -> {'archivo'}; $ old = tb-> setopt ('newfile'); Uso(); # Imprimir un mensaje de uso para todas las opciones # si está disponible, imprima también el uso del pod ('Este texto adicional para el uso'); # # Directorio de directorio # $ arrref = dir ('/ tmp'); # todo excepto . y .. $ arrref = dir ('/ tmp', '. * PATT'); # Todo el PATT coincidente $ arrref = dir ('/ tmp', '!. * PATT'); # todos no coinciden con PATT # # Manipulación de archivos # $ arrref = archivo ('ruta / a / archivo'); # leer archivo en Array $ arrref = archivo ("/ bin / ps |"); # Leer COMAND STODOUT en el archivo de matriz ("> Ruta / a / Archivo", 'Anular el contenido antiguo'); Archivo ("Ruta / a / archivo", 'Agregar esto al archivo'); Archivo ("ruta / a / archivo", $ arrref); # APEGANDO ARCHIVO Archivo de elementos ("Ruta / a / archivo", $ arrref, $ reconsp); # APEGAR ARCHIVO Arreglo Archivo ("Ruta / a / Archivo", $ Hashref, $ reconsp, $ fieldsep); # Anexa como archivo de líneas de valor clave ("| / bin / cat", "hola world.n"); $ fileHandle = Tmpfile (); # abierto nuevo archivo temporal $ arrref = tmpfile ($ filehandle) # LEER TEMP TODIPO FILO # # Mensaje Mensellous # Salida (1, "Mensaje de salida"); # Salir con el código de retorno 1, # Escribir mensaje de salida a través de registro () $ FH = Abrir ("> / TMP / XX"); # Devuelve un objeto IO :: Archivo con # / TMP / XX abierto para escribir # Die con la entrada del archivo de registro si falló $ fh = abierto ("/ bin / ps |"); # Devuelve un archivo IO :: Archivo # Die con la entrada del archivo de registro Si falló $ rc = SISTEMA ("/ bin / ls") # Ejecutar un comando de sistema y # Informe que se emite en el archivo # LogFile. $ ahora = ahora (); Printf "Día:% d mon:% D Año:% d wday:% d yday:% d ISDST:% D Sec:% d min:% D Hubo:% D", $ ahora -> {May}, $ ahora -> {Mon}, $ ahora -> {Año}, $ ahora -> {wday}, $ ahora -> {yday}, $ ahora -> {isdst}, $ ahora -> {sec}, $ ahora-> {min}, $ ahora -> {hora}; $ ahora = ahora ('"% a,% b% d,% y"'); # Lunes, 10 de octubre de 2005 = Head1 AbstractstEm, este módulo debe ser un "Cuchillo del ejército suizo" para las tareas diarias. Los objetivos principales son el procesamiento de la línea de comandos, los mensajes de uso automático, la captura de señales (con el registro), el registro simple, el formato de datos simple, el directorio simple y el procesamiento de archivos. Requisements: · Perlwhat's NUEVO en esta versión: · Nuevo parámetro ahora ({Diff => }) · Fijación de errores en la prueba t03_exit

Script :: Toolbox Software relacionado