Foro - Perl en Español

por **LeoSevilla** » 2019-12-26 13:56 @622

Hola, Felices Fiestas

Estoy queriendo crear un log desde un bot en Perl, y quiero darle el siguiente formato:

1013630386748 :nick!ident@hostname PRIVMSG #channel :Hello world.

El valor ":nick!ident@hostname PRIVMSG #channel :Hello world." me viene dado por el servidor, y la fecha (1013630386748) la puedo tomar con `date +%s%N` del sistema operativo.

Lo que no sé es cómo grabarlo a partir de este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
$sock = ":nick!ident\@ip.virtual.com PRIVMSG #canal :Una prueba más";
`date +%s%N | cut -b1-13 >> logirc.txt`;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Eso me graba la fecha, pero a continuación necesito se añada el contenido de la variable $sock. He probado con xargs, con tee, pero no doy son la solución. ¿Alguna idea?

Salu2.

#!/usr/bin/env perl
use autodie;
use Time::HiRes qw(gettimeofday);
 
open my $LOG, '>>', 'logirc.txt';
 
# entramos en el bucle principal...
 
$sock = ":nick!ident\@ip.virtual.com PRIVMSG #canal :Una prueba más";
 
$tiempo = join "", gettimeofday;  # obtenemos los segundos y microsegundos
$tiempo = substr $tiempo, 0, 14;
 
print $LOG "$tiempo$sock\n";
 
# repetimos bucle
# ...
#
 
# Fin del bucle
close $LOG;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

15773957617909:[email protected] PRIVMSG #canal :Una prueba másColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **LeoSevilla** » 2019-12-26 16:54 @746

Hola. Pues sí, yo pensando en hacerlo fácil y lo fácil es Perl (cuando se sabe).

Gracias por la respuesta, lo haré en Perl y me dejaré de comandos en Bash.

Salu2

Foro - Perl en Español

Crear log para irc[SOLUCIONADO]

Crear log para irc[SOLUCIONADO]

Publicidad

Re: Crear log para irc

Re: Crear log para irc

¿Quién está conectado?