$search = "http://www.sogo-unicom.co.jp/data/book/0520030101/index.html";
my $request = GET( $search );
my $ua = LWP::UserAgent->new();
my $res = $ua->request($request);
my $http = $res->as_string;
を実行すると、$http に
HTTP/1.1200OK
Connection:close
Date:Fri,23Feb200701:21:35GMT
Server:Apache/1.3.27(Unix)PHP/4.3.1
Content-Type:text/html
Content-Type:text/html;CHARSET=x-sjis
Client-Date:Fri,23Feb200701:15:00GMT
Client-Peer:125.100.64.159:80
Client-Response-Num:1
Client-Transfer-Encoding:chunked
Title:改訂新版温浴・スパ施設の開発計画・運営実態資料集
X-Meta-Description:
X-Meta-Keywords:温浴施設事業,経営実態調査…
X-Meta-ROBOTS:all
の後に「http://www.sogo-unicom.co.jp/data/book/0520030101/index.html」の
ＨＴＭＬソースがついてきます。
ここでＨＴＭＬソースをつけずに、ただ X-Meta-Description: や X-Meta-Keywords: だけが
欲しい場合などはどうすればいいのでしょうか？
どなたか、よろしくお願いします。
Perl Version: 5.8.8
LWP Version: 5.805
WindowsXP上でApache2.2を利用しています。
No.1
3344
440
27pt
ちょっとややこしくて、まず $ua->request で返ってくるのはHTTP::Responce
LWP::UserAgent - WWW ユーザ・エージェント クラス
でこれは HTTP::Message のサブクラスです。
No.1
3344440
ここでベストアンサー
27pt
ちょっとややこしくて、まず $ua->request で返ってくるのはHTTP::Responce
LWP::UserAgent - WWW ユーザ・エージェント クラス
でこれは HTTP::Message のサブクラスです。
回答ありがとうございます。
難しそうですが、がんばってみます。
さっそく
my $res = $ua->request($request);
my $http_header = $res->headers_as_string;
を使ってみます。ありがとうございます。
No.2
11715
27pt
がよいと思います。
取得した結果を表示する関数群はこちらをご覧ください。
http://search.cpan.org/~gaas/libwww-perl-5.805/lib/HTTP/Response...
回答ありがとうございます。
ＨＥＡＤでの利用も考えてやってみたいと思います。
$res->header('X-Meta-Description')
を組み込んでみたいとおもいます！
No.3
10
26pt
use LWP::UserAgent;
my $search = "http://www.sogo-unicom.co.jp/data/book/0520030101/index.html";
my $request = HTTP::Request->new('GET', $search);
my $ua = LWP::UserAgent->new();
my $res = $ua->request($request);
my $http = $res->headers_as_string;
print $http;
ありがとうございます、参考にさせていただきます。
1
1
2
282
274
回答ありがとうございます。
難しそうですが、がんばってみます。
さっそく
my $res = $ua->request($request);
my $http_header = $res->headers_as_string;
を使ってみます。ありがとうございます。