Ate :: syslog Ate un FileHandle a syslog
Descargar ahora

Ate :: syslog Clasificación y resumen

Ate :: syslog Etiquetas

Módulo perl registro del sistema FileHandle Corbata lazo syslog atar filehandle

Ate :: syslog Descripción

Atar un archivo de archivo a syslog ETIQUE :: SYSLOG es un módulo PERL le permite atar un FileHandle (solo salida) a Syslog. Esto se vuelve útil en general cuando quiere capturar cualquier actividad que ocurra en STDERR y ver que es sysogged para su posterior perustal. También puede crear un archivo ARBITRARY FILEHANDLE, DIGA el registro y envíe cosas a SYSLOG imprimiendo a este FileHandle. Este módulo depende del módulo SYS :: Syslog para obtener información a Syslog.tie su archivo a través de SYSLOG usando un Glob a FileHandle. Cuando está atado a la clase 'Tie :: Syslog', puede pasar opcionalmente cuatro argumentos que determinan el comportamiento de la salida unidos a Syslog. Primero, especifique una instalación y prioridad para dirigir su tráfico de FileHandle a los canales adecuados en syslog. Sugiero revisar una manguga para Syslog en su sistema local para identificar cuáles son las instalaciones y las prioridades en realidad. No obstante, este primer argumento se especifica como una cadena que consiste en la instalación seguida de un punto, seguido de la prioridad. Por ejemplo, la configuración predeterminada es 'local0.Error'. (Nota: Creo que Linux usa 'ERR' en lugar de 'error'). Si no especifica un primer ARG, se usa este incumplimiento. El segundo argumento es una cadena de identificación. Esta es la cadena que aparece en la línea de salida de Evey que escribe Syslog. Puede usar este identificador para ayudar a ordenar las líneas de Syslog producidas por diferentes aplicaciones (con las diferentes ID). Si no especifica un valor para este argumento, incumplirá el nombre del programa en ejecución. (Esto se deriva de la variable especial de $ 0, eliminando todo hasta el carácter final de slash de aparición final). El tercer argumento es una cadena de opciones de registro separadas por comas específicas de syslog. La documentación actual admite 'PID, CONTRES, NDELAY, NOWAIT'. Revise sus listados locales, ya que puede pasar valores que son solo parte de su sistema local. Sugiero revisar las páginas de su hombre para syslog, y quizás mirando dentro de su sitio_perl / $ archName / sys / sysslog.ph para otros valores de este tipo. Si no pasa este tercer argumento, el valor predeterminado de la cadena 'PID', que hace que Syslog coloque un valor PID en cada línea de salida. El cuarto argumento es la cadena 'inet' o 'unix'. Esto se pasa al SYS :: syslog :: setlogsock () Llame para especificar el tipo de socket que se utilizará al abrir la conexión a syslog. Si este argumento no está especificado, entonces el valor predeterminado utilizado es 'inet'. Muchas instalaciones de Perl aún tienen SYS original :: Syslog, que no tiene la rutina de setlogsock (). Tampoco hay constante de $ versión para probar en SYS :: syslog, por lo que probaremos la tabla de símbolos para ver si la rutina existe. Si la rutina no existe, entonces el cuarto argumento se ignora silenciosamente. No quería exigir a las personas que tengan "la versión más reciente" de PERL solo para usar este Module.Note: ahora puede pasar opcionalmente una referencia a un FileHandle como el * Muy * First Arg (antes de la 'Tie :: syslog' Incluso ...) El tiempo * Solo * que haría esto es si está experimentando problemas para usar su archivo atado con otro código que espera hacer llamadas como Fileno () y BinMode () para operar en este After FileHandle. La API de TienHandle nos da de ninguna manera (que he encontrado) para obtener acceso a la variable atada real, o FileHandle en este caso. Entonces, he recurrido a solo pasarlo como ARG de frente y simplemente almacenándolo en el objeto. ** ¡Hay problemas con esto! ** Sé consciente, aquellos de ustedes esto puede afectar ... Sinopsis Use lazo :: syslog; ### ## Pass hasta cuatro args: ## Facility.Priority ('Local0.Error') ## Nota Linux usa 'err' ## Identity ('My_Program') ## Opciones de registro ('PID') ## setlogsock ('inet' | 'unix') ### tie * mylog, 'tie :: syslog', 'local0.error', 'my_program', 'pid', 'inet'; Imprime Mylog "Hice un error". ## Este será Syslogged Printf Mylog "Error% D", 42; ## syslog como "Error 42" desie * Mylog; ### ## caso especial: Pase una reforma a File Glob como primer arg. ## Esto almacena el archivo FileHandle y lo usa para implementar llamadas ## Like Fileno () y BinMode (), etc. ### Tie * stderr, * stderr, 'tie :: syslog', 'local0.error', 'local0.error' My_App ',' Pid ',' Innet '; ### ## Sí, se ve gracioso, pero es la única manera ...? ### Requisitos: · Perl

Ate :: syslog Software relacionado