perl：如何檢查url鏈接是否不是404

Question

我想知道如何檢查perl中的url鏈接？ 我想知道它是否是無效鏈接。

此外，我想知道在檢查網址鏈接時如何使用用戶名和密碼進行身份驗證。

Answer 1

請參閱LWP :: UserAgent中的方法credentials和HTTP :: Response中的方法is_success 。

use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
$ua->credentials('hostname.example:80', 'realm name', 'login', 'password')
my $res = $ua->head('http://hostname.example/fullurl');
$res->is_success;
# $res->is_error
# $res->is_redirect
## specific status code comparison:
# $res->code != HTTP::Status::HTTP_NOT_FOUND()

您可能希望升級到WWW :: Mechanize以自動跟蹤重定向並更輕松地進行身份驗證。

Answer 2

您可以使用LWP::Simple並執行HEAD請求

從這個鏈接

LWP :: Simple中還有其他有用的功能，包括一個用於在URL上運行HEAD請求的函數（用於檢查鏈接，

從rfc

HEAD方法與GET相同，只是服務器不能在響應中返回消息體。 響應HEAD請求的HTTP頭中包含的元信息應該與響應GET請求時發送的信息相同。 該方法可用於獲得關於請求所暗示的實體的元信息，而無需轉移實體主體本身。 此方法通常用於測試超文本鏈接的有效性，可訪問性和最近的修改。

Answer 3

使用LWP; 你可以在CPAN上找到它： https ： //metacpan.org/pod/LWP