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

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

使用一个监控程序：top、iftop、ntop、dstat、icinga、munin、knemo、ksysguardd

我有千兆以太网，但我的互联网连接是ADSL。您的问题的措辞表明（对于我的系统）您正在寻找1000 Mbit/s，对吗？然后措辞不合适。我对互联网连接感兴趣。没有可靠的方法来衡量这一点。速度会因另一个端点的位置、当时网络上的其他流量等而有所不同。然而，有一些工具正在打印（改变）下载速度。当然，这就足够了。这将是对两个特定端点之间特定传输速度的估计。这不是一个链接速度的通用衡量标准。使用这些工具在我的脚本中获取所需的信息非常费劲。而且脚本没有超级用户权限运行。不是真的。我的（$recv，$send）=qx'dstat--net1'=~/（\d+\w*）\s+（\d+\w*））\s+\z/。没有超级用户权限，它可以正常运行。这不考虑延迟等因素。一旦建立连接，事情可能会进展得很快。

#!/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;