Perl Netstat Super Extractor
A continuación se muestra una pequeña rutina en Perl para extraer el volumen de tráfico que gestiona un interfaz de red en tiempo real. #!/usr/bin/perl use warnings; use strict; my $if; my $method; my $theline; my $indataA; my $outdataA; my $indata_acuA=0; my $outdata_acuA=0; my $indata_mediaA; my $outdata_mediaA; my $indata_lastA; my $outdata_lastA; my $iterA=0; my $initA=1;… Leer más »