Foro - Perl en Español

Hola! Soy nuevo en esto del Perl, tiempo atrás estuve leyendo un poco pero luego quedo arrumbado en el arcón de "temas para ver a futuro" pues ese futuro llegó ya que debo realizar una tarea para la cual Perl, creo, es lo ideal.

Debo a partir de archivos de log de un servidor, leer su contenido línea a línea, y según un <nombre> el cual SIEMPRE aparece de la forma: " user=<nombre>, " redirigir ("imprimir") dicha línea hacia un archivo ad-hoc.

Pero para ello debo crear cada archivo en el momento que lo encuentra al nombre por vez primera, y así seguir con todo el log (aprox. 200.000 líneas de código por cada "archivito").

La idea es luego tener un archivo generado por cada usuario con las líneas en la que aparece mencionado.

¡Sugerencias y ejemplos son bienvenidos!

Primero abres el archivo y con while haces el resto:

Bienvenido a los foros de Perl en Español.

El problema es muy típico de una administración de sistemas. De hecho, yo tengo un programa que hace eso mismo.

La solución (una de las posibles), es:

Código: Seleccionar todo

* Abrimos el fichero de log
* Para todas las líneas del fichero
*    Si la línea contiene un patrón /user=<(.+?)>/
*        $usuario = $1;
*        Si no se ha abierto un fichero para ese usuario (if ( !$fichero{$usuario} ))
*            Abrimos en escritura un nuevo fichero
*            El handle lo guardamos en $fichero{$usuario}
*        Escribimos la línea en el fichero abierto en $fichero{$usuario}  (print $fichero{$usuario})
* Fin del bucle
* Cerramos el fichero de log
* Para todos los ficheros abiertos (foreach (keys %ficheros))
*    Cerramos el fichero
* Fin del bucle

Aunque puede tener un problema: que el número de ficheros abiertos supere los recursos del sistema operativo.

Gracias Explorer por tu respuesta y Creating por la línea de código, espero con ambas ya poder encarar mi problema, que como dice Explorer es "típico de una administración de sistemas" y de eso se trata justamente, rastrear cierto comportamiento de cierto usuario, pero como dije antes en 200.000 lineas de código x 20 o 30 logs.... se pone complicado hacerlo a simple vista, ¡jejejee!

A veces con un simple 'grep' suele valer.

O con configurar el logcheck del Linux, vale. Es la solución que adoptamos al final, pues no necesitábamos estadísticas globales, sino avisos puntuales.