Foro - Perl en Español

por **jreyesb** » 2009-09-02 12:15 @552

Hola, buen día a todos.

Bueno, mi pregunta es la siguiente: me han encomendado la tarea de enviar ciertos mensajes hacia un Syslog en UNIX de tal forma que empecé desarrollando un socket cliente (también hice mi socket servidor para comprobar) y me ha funcionado muy bien. Este es mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use IO::Socket::INET;
 
print "\n>> Programa Cliente <<\n";
my $MySocket = new IO::Socket::INET -> new(PeerPort => 1234, Proto => 'udp', PeerAddr => 'localhost');
my $def_msg = "Escriba el mensaje para ser enviado: ";
print "\n$def_msg";
while(my $msg = <STDIN>) {
        chomp $msg;
        if($msg ne '') {
                print "\nEnviando... '$msg'";
                if($MySocket -> send($msg)) {
                        print ".....<terminado>\n";
                        print $def_msg;
                }
        }
        else {
                $MySocket->send('');
                exit 1;
        }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora bien, cuando intenté enviar esto al equipo en donde radica el Syslog por el puerto 514, el Syslog no lo registró en el log que escribe. Sin embargo, con el programa snoop (que entiendo es como un sniffer) sí veo que mi mensaje llega, de tal forma que al investigar un poco más me di cuenta que existen dos módulos para comunicarse por medio de Perl con el Syslog; Sys::Syslog creo que es el que me sirve, sin embargo no logro entenderlo.

¿Alguien tiene un ejemplo? Solo necesito saber cómo enviar, por ejemplo, la cadena "hola mundo" (jeje).

Mil gracias.

Dos cosillas:

1.- No publiques tu correo electrónico en estos foros (ni en ningún otro) salvo que quieras recibir toneladas de correo basura. Te aconsejo que reedites tu mensaje y lo quites.

2.- Te aconsejo el uso del módulo Log::Syslog::Fast. Es más rápido y fácil de usar que el Sys:Syslog.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Log::Syslog::Fast':all';
my$logger= Log::Syslog::Fast->new(LOG_UDP,"127.0.0.1",514, LOG_LOCAL0, LOG_INFO,"mymachine","logger");
$logger->send("log message",time);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Recuerda que el demonio syslogd debe estar arrancado con la opción -r para permitir la recepción de informes desde la red externa (consulta la página de manual).

por **jreyesb** » 2009-09-02 17:15 @760

¡¡Hola Administrador!!

Gracias por el tip de la firma, no sé en qué estaba pensando :lol:

Muchas gracias por el código. Les comento que he logrado utilizar el otro módulo y me ha ido bien; se los pongo para que entonces quede completa esta referencia a Syslog y tengamos 2 alternativas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Sys::Syslog qw(:DEFAULT setlogsock); 
 
my $remotehost = $ARGV[0];
my $ident = $ARGV[1];
my $logopt = $ARGV[2];
my $facility = $ARGV[3];
my $level = $ARGV[4];
my $message = $ARGV[5]; 
 
if($remotehost eq '' || $ident eq '' || $logopt eq '' || $facility eq '' || $level eq '' || $message eq '') {
        print "\nNumero de parametros no valido\n
perl sendto_syslog.pl <Host> <Identificador> <OpcionLOG> <Facilidad> <Nivel> <Mensaje>\n
Ningun mensaje enviado\n";
        exit 1;
}
 
print "\nEnviando... $message";
 
setlogsock("udp", $remotehost);
 
#       openlog($ident, $logopt, $facility)
 
openlog($ident, $logopt, $facility);
 
#       syslog($priority, $format, @args)
 
syslog($level, $message);
closelog();
print "\n.....Terminado\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Yo lo ejecuto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl sendto_syslog.pl X.X.X.X TEST ndelay user err "Hola Syslog"Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos a todos,
PD. Excelente FORO, Felicidades, Admin.

Foro - Perl en Español

Uso de Sys::Syslog

Uso de Sys::Syslog

Publicidad

Re: Uso de Sys::Syslog

Re: Uso de Sys::Syslog

¿Quién está conectado?