- 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.