请问批量测试网址能否打开网站的程序该怎么写?

chlotte

测试是否能连接服务器有三个过程:

连接中……
已连接……
未连接……

比如批量测试：
www.sina.com
www.163.com
www.csdn.net
www.sohu.com
能否连接服务器

提示：
www.sina.com     已连接

……


请问这样的程序怎么写？ 谢谢！

chlotte

能抓下来主页算么？ 算，能否给个实例，多谢！

chlotte

多谢了！

chenhebuaa

不用下载主页，直接wget --spider --server-response $Url 2>&1| grep "HTTP/1.1" |awk '{print $2}'   ,测试返回的值，如果是200，就算链接成功，如果404,或是其他值，就算失败

flw

Coro+LWP

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use LWP::UserAgent;
   
6. 
   
7. my @urls = ('http://www.sina.com','http://www.163.com','http://www.csdn.net','http://www.11test11.com');
   
8. 
   
9. my $lwp = LWP::UserAgent->new();
   
10. foreach my $url(@urls){
    
11.         my $response = $lwp->get($url);
    
12.         my $status = $response->status_line();
    
13.         print " $url\t$status\n";
    
14. }
    
15. 
    
16. print "\n Press Enter key to close me ...\7";
    
17. <STDIN>;
    
18. exit;

复制代码

如果URL多，要提高速度，建议如版主所说，用多线程或CORO。

连接状态请参考HTTP::Status的文档。