Nos*_*tap 2 perl networking ping
只是为了好玩,我正在编写一个Perl程序来检查给定的网站是否存在.出于我的目的,如果我可以进入我的浏览器,打入网址并获得有意义的网页(意思不是错误或"打开页面失败"消息),就会存在一个网站.这样做最好的方法是什么?最后,我希望能够为我的程序提供数百个网址的列表.
我正在考虑只对我列表中的每个网址进行ping操作,看看它们是否存在; 但是,我真的不太了解网络,所以这是最好的方法吗?
在Perl(LWP)中使用WWW中的WWW库:
#!/usr/bin/perl
use LWP::Simple;
my $url = 'http://www.mytestsite.com/';
if (head($url)) {
print "Page exists\n";
} else {
print "Page does not exist\n";;
}
Run Code Online (Sandbox Code Playgroud)