有没有人知道一个模块，它有一个返回 kb/s 下载速度的函数

Question

有人知道一个模块，它有一个返回（例如eth0）下载速度的函数吗？

Answer 1

使用监控程序：atop，iftop，ntop，dstat，icinga，munin，knemo，ksysguardd

Answer 2

#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes;
use LWP::Simple;
my $url = 'http://www.cnn.com/';
my $file = 'cnn.html';
my $start = [Time::HiRes::gettimeofday()];
getstore($url, $file);
my $time = Time::HiRes::tv_interval($start);
my $size = -s $file;
printf "Speed: %d kbpsn", $size/$time/1000;