コードを舐める日々

わからないことがわからないことをしる日々

HTTPヘッダの取得について

PHPは分かったけど、Perlはどうするか調べてみた。
PerlだとLWP::UserAgentクラスが必要だそうだ。

下記にcgiファイルとして作成。

#!/usr/bin/perl

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

print "Content-type: text/html\n\n";

# 取得先
my $url = "http://d.hatena.ne.jp/makotoworld/rss";

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

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

# 特定のヘッダの値
my $rss = $header->content_type;
print $url, "=\"", $rss, "\"<br />\n";

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

#RSSチェック
if(0 <= index($rss, 'xml')){
	print "RSS";
}else{
	print "NO RSS!";
}

content_typeの部分をRSSフィードがどうかチェックする方法はindex()でいいだろうか。

参考リンク
http://homepage3.nifty.com/hippo2000/perltips/LWP/UserAgent.html