2012-04-11 49 views
0

有人知道一个模块,它有一个返回(例如eth0)下载速度的函数吗?有人知道一个模块,它有一个返回kb/s downloadspeed的函数吗?

+0

我有千兆以太网,但我的互联网连接ADSL。您的问题的措辞表明(对于我的系统)您正在寻找1000 Mbit/s,是吗? – Quentin 2012-04-11 08:31:36

+0

然后措辞不好。我对互联网连接感兴趣。 – 2012-04-11 14:58:05

+0

没有可靠的方法来衡量这一点。速度取决于另一端点的位置,当时网络上的其他流量,等等。 – Quentin 2012-04-11 14:59:58

回答

2

采用监控程序:顶上,iftop的,的NTOP,dstat,icinga,穆宁,knemo,ksysguardd

+0

这是很费力的这个工具来获取我的脚本中所需的信息。而脚本不能以超级用户权限运行。 – 2012-04-11 15:03:12

+0

不正确。我的($ recv,$ send)= qx'dstat --net 1 1'=〜/(\ d + \ w *)\ s +(\ d + \ w *)\ s + \ z /;'没有任何困难。它运行良好,没有超级用户权限。 – daxim 2012-04-25 23:15:31

0
#!/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 kbps\n", $size/$time/1000; 
+0

这不包括延迟等。一旦建立连接,事情可能会非常迅速。 – 2012-04-13 04:33:29

相关问题