HTTPヘッダの取得

---

　LWPとLWP::UserAgentを使います。

use strict;
use warnings;
use LWP;
use LWP::UserAgent;

# 取得先
my $url = "http://www.example.com/";

# ユーザエージェント
my $ua = LWP::UserAgent->new;
$ua->agent("TestApp/0.1");

# リクエスト
my $request = new HTTP::Request(HEAD => $url);
my $header = $ua->request($request);

# 特定のヘッダの値
print $header->content_type, "\n";
print $header->content_length, "\n";

# ヘッダ名を指定して値を取得
print $header->header('Last-Modified'), "\n";

# ヘッダ全体
print $header->as_string;

---

関連項目

・Basic認証しているページの取得
・プロキシを使ったページの取得
・Webページの取得