Foro - Perl en Español

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:

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.

Lo ideal es que todas estas operaciones se hiciesen directamente desde Perl, sin depender de comandos externos, como date y cut.

Almacenando el tiempo en una variable intermedia, le quitamos los caracteres de fin de línea, y luego lo concatenamos con lo que queremos sacar al log.



Pero esto... es tan poco Perl... casi mejor hacerlo en Bash shell
Usando Perl evita que se ejecuten procesos externos, por lo que es más rápido.

Lo lógico es hacerlo con open, print, time() para recuperar la fecha, manipulación, impresión...
Salida:

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