Parsear lsn_sidip.log con Perl

Hace un tiempo me pidieron parsear un archivo de Oracle llamado lsn_sidip.log.
El mismo es un quilombo, pero me pidieron datos relevantes como los siguientes:
hora, SID, Programa, terminal, Usuario, Protocolo, IP, Port, verificacion de conexion, similar a SID, ultimo campo

El tema era que con shell script demoraba mas de 30m en parsear todo, claro, parsear un archivo de 1gb linea por linea es un parto para un shell script, asi que decidi hacerlo en Perl, pero he de aqui que varios compañeros en otros lugares lo utilizan por que se los pase por correo, asi que lo atacho aqui tambien.

#!/usr/bin/perl
###############################################################################
# Titulo: parseo.lsn_sidip.pl
# Fecha: 18-abr-2007
# Creado por: Javier Clv
# Detalle: Script que parsea los campos del archivo lsn_sidip.log y los separa
# en campos por %. El script generar un archivo temporal con los datos
# filtrados en /tmp y luego de parsear el archivo temporal lo elimina, la
# salida la muestra por StandardOutput. Este script se genero para parsear
# el archivo lsn_sidip.log del servidor xxxx de empresa
# +———–+—————————+———————————–+
# | Fecha | Nombre y Apellido | Detalle |
# +———–+—————————+———————————–+
# | | | |
###############################################################################
$FILE=”/u00/app/oracle/product/920/network/log/lsn_sidip.log”;
open(ARCHIVOPROCESO,”$FILE”);

while () {
$_ =~ m/(\d*)\:(\d{0,2}-\w{0,3}-\d{0,4} \d{0,2}:\d{0,2}:\d{0,2}) \* \(\w*\_\w*\=\([\W*\_*\w*]*\=([\w*\.*\_*\d*\s*]*)\)[\w*\W*\_*\=*\s*\**\-*\d*\:*\(*\)*]*[\(\w*\_*\=*\.*\d*\)]*\(\w*\=\(\w*\=([\W*\w*\:*\\*\s*\.*]*)\)\(\w*\=([\W*\w*\:*\\*\s*\.*]*)\)\(\w*\=(\w*)\)\)\) \* \(\w*\=\(\w*\=(\w*)\)\(\w*\=([\d*\s*\w*\.*]*)\)\(\w*\=([\d*\w*\s*]*)\)\) \* (\w*) \* ([\_*\w*\.*\d*]*) \* ([\w*\.*\d*]*)/;
print (“$2 % $3 % $4 % $5 % $6 % $7 % $8 % $9 % $10 % $11 % $12 \n”);
}
close(ARCHIVOPROCESO);

Espero que sirva de algo.
Saludos

Basta de XP!!!

Todo tiene un principio.
El mio fue cuando mi novia me dijo “Negro, quiero navegar en internet”, ese fue el punto de partida para una colosal batalla entre la simplicidad y click varios que tiene Windows XP contra los pobres 256mb de RAM que tiene mi PC.

Es increible lo lento que es Windows XP en una maquina que solo tiene instalado MS Office 2003 + MSN Live + uTorrent + Ares + eMule + Winamp + nada mas… (si nada mas!!!!).

Ojo, lo que siempre esta corriendo es Msn Live, Winamp y Ares, nada mas, pero es increible lo que demora en abrir una pagina de google y ni hablar si quiero entrar al webmail de mi trabajo, es un parto, y a todo esto sumale el “Negro, la pc es lenta no me gusta…. (sic)”.

Asi que decidi migrar todo a Unix, ya con este año seria 10 años que vengo laburando con Unix, asi que tanto que hablan de Linux (distros que no me gustan para ser sinceros por no respetar en su mayoria los estandares de Unix) le dije a mi novia “Negrita, voy a migrar a Linux,… que es Linux?… si ese OS… el del pinguino… que es un pinguino?…. uhhhhh vamos mal”.

Asi que bue… hace un tiempo en el 2004 mande un mail a la gente de Canonical y me mandaron en ese tiempo 5 copias del entonces Ubuntu 5.10, hoy esta la version 7.04 asi que la pedí junto con Solaris 10, veamos que pasa, luego les cuento.