レスポンスヘッダの出力方法

質問

指定したURLの

HTTP/1.1 200 OK
Date: Wed, 03 Jan 2001 17:22:53 GMT
Server: Apache/1.3.9 (Unix)
Connection: close
Content-Type: text/html

と言ったヘッダ情報をを取得できるようにしたいのですがうまくできません。何か良い方法は無いでしょうか?

回答No.2

guci-ok · ベストアンサー

とりあえず、生で出す。

#!Perl
use HTTP::Headers;
use LWP;
$ua = LWP::UserAgent->new();
$res = $ua->get('http://www.yahoo.co.jp/');

# $head = $res->headers;
# print $head->as_string;

$retstr = $res->as_string;
$heads = (split /\n\n/ => $retstr)[0];
print $heads;

お礼

ご回答ありがとうございます。自分の希望通り出力されました。

回答No.1

BLUEPIXY

use HTTP::Headers;
use LWP;
$ua = LWP::UserAgent->new();
$res = $ua->get('http://www.yahoo.co.jp/');
$head = $res->headers;
print $head->as_string;
こんな感じかな。
個別の要素については、
$head->field();
でとりだせる
perldoc HTTP::Headers 参照

補足

ご回答ありがとうございます。

上記のソースでヘッダ情報はほぼ取得できました。
でも、

HTTP/1.1 200 OK

の部分は出力されませんでした。各ヘッダ情報とともに上記の情報も利用したいと考えています。表示させる方法はないでしょうか?