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

指定した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 回答日時： 2005/12/20 05:49

とりあえず、生で出す。

#!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;

この回答へのお礼

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

お礼日時：2005/12/20 14:27

No.1 回答者： BLUEPIXY 回答日時： 2005/12/20 02:47

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

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

補足日時：2005/12/20 03:55