有没有Perl模块来测试网络连接速度？

Question

有没有人知道一个模块来测试互联网连接的速度？

Answer 1

速度与带宽一样吗？或者在等待时间？对于后者，只需使用Net::Ping。

对于带宽，我不知道如果有什么现成的，还有2种方法：

1. 你可以尝试利用ibmonitor

2. 否则，测量的下载带宽找到一个网站它允许您通过下载大文件来测量带宽（或在高性能站点上找到这样一个大文件）;启动计时器，开始下载该文件（例如，使用LWP或任何其他您希望的模块 - 或Net::FTP，如果您的文件位于FTP站点上） - 测量需要多长时间并除以文件大小。

   用于测量上传带宽的类似逻辑，但不需要查找大文件，您需要在互联网上找到一个允许上传文件的地方（如公共存储库）。

Answer 2

#!/usr/bin/env perl 
use warnings; use strict; 
use 5.010; 
use Time::HiRes qw(gettimeofday tv_interval); 
use LWP::Simple; 
use File::stat; 

my %h = (
    '500x500' => 505544, 
    '750x750' => 1118012, 
    '1000x1000' => 1986284, 
    '1500x1500' => 4468241, 
    '2000x2000' => 7907740, 
); 

my $pixel = '1000x1000'; 
my $url_file = 'http://speedserver/file'.$pixel.'.jpg'; 
my $file = 'file'.$pixel.'.jpg'; 

unlink $file or die $! if -e $file; 
my $start = gettimeofday; 
my $response = getstore($url_file, $file); 
my $end = gettimeofday; 

open my $fh, '>>', 'speed_test.txt' or die $!; 
    say $fh scalar localtime; 
    if (not is_success $response) { 
     say $fh "error occured:"; 
     say $fh "HTTP response code = $response"; 
    } 
    else { 
     my $size = stat($file)->size if -e $file; 
     $size ||= 0; 
     if ($size == $h{$pixel}) { 
      my $bit = $size * 8; 
      my $time = $end - $start; 
      my $kbps = int(($bit/$time)/1000); 
      say $fh "$kbps kbit/s"; 
      say $fh "$pixel : $size"; 
     } 
     else { 
      say $fh "error occured:"; 
      say $fh "file_size is $size - file_size expected $h{$pixel}"; 
     } 
    } 
    say $fh ""; 
close $fh;