一个测试网站速度的perl程序..

月风

写的很简单..
用法:ipspeed.pl ip地址或www.linuxsir.cn
程序如下:
print "请输入要查询速度的网址或IP:";
$input = <stdin>;
chop $input;
if($input=~/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/)
{
        if($1>255 || $2>255 || $3>255 || $4>255)
        {
                print "\n非法IP地址\n";
        }
        else
        {
        open(IP,"ping $input |");
        }
}
elsif($input=~/^[a-zA-Z]+\..+\..{3}/)
{
     
      open(IP,"ping $input |");
}
else
{
        print "\n错误URL地址或IP\n";
}


my @ip=<IP>;
close(IP);
foreach my $temp(@ip)
{
        if($temp=~/Minimum.*=(.+)ms/)
        {
                if($1==0)
                {
                        print "\n对不起,你输入的IP或url错误或服务器已经挂了!\n";
                }
                else
                {
                print $input." 最快速度:".$1."ms";
                }
        }
}

wangfaming1221

不明白，但还是喜欢

月风

呵呵，谢谢

winix

何必如此麻烦。
用apache带的ab啊

scau_sinner

初学perl，看得懂一些，有些看不懂。

quanliking

我这边 ping 都被 ISP 掐了。脚本无用武之地。

pstar

呵呵，是啊，自从冲击波过后，根本不能用 ping 了.......... 这种也加精么？

home

$input=~/^[a-zA-Z]+\..+\..{3}/)
这句有漏洞，ping nic.funet.fi可以PING通，但在这里却通不过。

tsingson

这段代码不太好，
1. 计时只精确到秒，而不是毫秒
2. 使用 ping 只能测网速，不能测试网站的速度 （网站速度应该是网速与 webserver 反映速度的综合）

home

关注中。。。。。