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