perl - 如何判断网页是否存在？

Question

只是为了好玩，我正在编写一个 Perl 程序来检查给定网站是否存在。出于我的目的，如果我可以进入浏览器，输入 url 并获得有意义的网页(意思不是错误或“无法打开页面”消息)，那么网站就存在了。执行此操作的最佳方法是什么？最终我希望能够为我的程序提供一个包含数百个 url 的列表。

我正在考虑对列表中的每个 URL 执行 ping 操作，看看它们是否存在；但是，我真的不太了解网络，所以这是最好的方法吗？

Answer 1

在 Perl (LWP) 中使用 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";;
}