Determinar ancho de banda utilizado desde terminal

#!/usr/bin/perl -w

# Nota: estos dos parametros puede introducirlos el usuario
# en la linea de comandos, por este orden, sobreescribiendo
# los valores por defecto para esa ejecución.

$def_int="eth0"; # interface que analizamos por defecto
$def_sca=500; # escala del grafico por defecto

# Lo que viene a continuación no deberia ser modificado
# por los usuarios normales. De todas formas yo nunca
# dejaria que me llamasen usuario normal ]:-)

$pnd="/proc/net/dev";
$int=($ARGV[0])?($ARGV[0]):($def_int);
$seg=1;
$kil=1000;
$kps=$kil*$seg;
$sca=($ARGV[1])?($ARGV[1]):($def_sca);

# Función que obtiene el numero total de bytes recibidos
# por el interface

sub getbytes
{
open (PND, "<$pnd");
while() {
if(/\s*$int:\s*(\d+)\s*/) {
return $1;
}
}
close PND;
}

# Programa principal

print "Esto analiza $pnd a intervalos de $seg segundo(s) ";
print "y para cada intervalo\n";
print "calcula la velocidad de bajada por el $int ";
print "en KiloBytes/segundo\n";

$x=&getbytes;
while(1) {
sleep $seg;
$z=($y=&getbytes)-$x;
foreach (0..$z/$sca) { print '#' }
printf("%10.5f KBps\n", $z/$kps);
$x=$y;
}

Link2No escribió:has probado bwmon ?

quelcom escribió:cat /proc/net/dev | less | sed '4!d;q' | cut -b8-16

quelcom escribió:Por Bulma he encontrado este script tambien en perl que creo que hace lo mismo que el script de auxiliar pero este es bastante mas simple mirando el codigo.

Sacando un poco de aqui y un poco de alli, mas el supertutorial de sed de auxiliar

cat /proc/net/dev | less | sed '4!d;q' |  cut -b8-16

auxiliar escribió:Hombre, por fin alguien que confiesa haberse leído mi tutorial... Habíais acabado por deprimirme.

auxiliar escribió:No me convence: less no pinta nada, y la interfaz que necesitas consultar no tiene por qué estar en la cuarta línea.

auxiliar escribió:Hombre, por fin alguien que confiesa haberse leído mi tutorial... Habíais acabado por deprimirme.

auxiliar escribió:Hombre, por fin alguien que confiesa haberse leído mi tutorial... Habíais acabado por deprimirme.

auxiliar escribió:Hombre, por fin alguien que confiesa haberse leído mi tutorial... Habíais acabado por deprimirme.