• Publicidad

Procesar archivo

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Procesar archivo

Notapor jeanmarc_tec » 2007-02-21 22:00 @958

Hola nuevamente. Necesitando ayuda. Necesito procesar el siguiente log:


Código: Seleccionar todo
Wed Feb 21 20:34:02 2007; ******** LAN traffic monitor started ********

*** LAN traffic log, generated Wed Feb 21 20:34:19 2007


Ethernet address: 000d614a180a
        Incoming total 1387 packets, 478689 bytes; 0 IP packets
        Outgoing total 1321 packets, 712048 bytes; 0 IP packets
        Average rates: 27.47 kbytes/s incoming, 40.88 kbytes/s outgoing
        Last 5-second rates: 26.20 kbytes/s incoming, 29.00 kbytes/s outgoing

Ethernet address: 00022d15a7f4
        Incoming total 895 packets, 454449 bytes; 0 IP packets
        Outgoing total 907 packets, 364705 bytes; 0 IP packets
        Average rates: 26.06 kbytes/s incoming, 20.94 kbytes/s outgoing
        Last 5-second rates: 23.00 kbytes/s incoming, 24.20 kbytes/s outgoing


Running time: 17 seconds
Wed Feb 21 20:34:19 2007; ******** LAN traffic monitor stopped ********
Wed Feb 21 20:41:03 2007; ******** LAN traffic monitor started ********

*** LAN traffic log, generated Wed Feb 21 20:42:03 2007


Ethernet address: 00022d4d4d53
        Incoming total 1629 packets, 1867618 bytes; 0 IP packets
        Outgoing total 1194 packets, 120837 bytes; 0 IP packets
        Average rates: 30.38 kbytes/s incoming, 1.97 kbytes/s outgoing
        Last 5-second rates: 56.00 kbytes/s incoming, 1.80 kbytes/s outgoing

Ethernet address: 000d614a180a
        Incoming total 6892 packets, 2132714 bytes; 0 IP packets
        Outgoing total 6905 packets, 4484574 bytes; 0 IP packets
        Average rates: 34.70 kbytes/s incoming, 72.98 kbytes/s outgoing
        Last 5-second rates: 41.00 kbytes/s incoming, 116.00 kbytes/s outgoing

Running time: 60 seconds


Y necesito extraer los siguientes datos de la siguiente manera.

Ejemplos
Código: Seleccionar todo
mac;incomming;outgoing;
00022d4d4d53;1867618;120837
000d614a180a; 2132714 ;4484574


La cuestión es que el log crece cada minuto y así sucesivamente.

Y la verdad no soy mucho ducho en esto de Perl, pero por prestaciones me comentan que es mucho mejor hacerlo aquí en Perl. Ayúdenme, por favor.
jeanmarc_tec
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2007-02-01 15:10 @673

Publicidad

Notapor explorer » 2007-02-22 03:54 @204

Lo puedes procesar línea a línea, e imprimir la línea de salida cuando hayas leído los 3 datos que necesitas.

El cómo leerlo por línea, lo puedes mirar en este foro. Vete a la opción de Buscar, pon "File::Tail" y marca la opción de buscar por todas las palabras.

Por ejemplo: viewtopic.php?p=2901#2901
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados