JSON形式のデータ解析が出来なくて悩んでます。

解決済

質問者：perlgogo
質問日時：2011/05/12 04:12
回答数：1件

「Twitterから学ぶ，Web APIのキホン」（http://gihyo.jp/dev/serial/01/perl-hackers-hub/0 …）のサンプルプログラムを参考にitunesの検索apiの検索結果を解析しようとしているのですが解析できなく、何も表示されない状態になります。
itunes 検索api
http://www.apple.com/itunes/affiliates/resources …

まずは上のSearch Examplesにいくつか示しているitunes　apiの検索結果（jsonデータ）から"artistId"に対する項目や"artistName"に対する項目を抜き出そうと試みています。
以下は実際に私が実行しているプログラムです。

-----------------------------------------------------------------
print <<"HTML";
Content-type: text/html
<html>
HTML

use LWP::UserAgent;
use URI;
use JSON qw(decode_json);
use Encode qw(encode_utf8);

my $uri =
URI->new('※ここにitunes apiの検索結果のurl入れています');

my $ua = LWP::UserAgent->new;
my $res = $ua->get($uri);
my $json = $res->content;

my $ref = decode_json($json);
for my $applist ( @{ $ref->{results} } ) {
print
encode_utf8("$applist->{artistId}: $applist->{artistName}\n");}
--------------------------------------------------------------------------------------

としているのですが結果は何も表示されません。※cgiはmac 環境にてUTF-8 Mac(CR)で保存しております。
「Twitterから学ぶ，Web APIのキホン」のサンプルプログラムは正常に動いて表示出来ているのでモジュールやPerlのパスには問題ないと思います。
どうすればitunes 検索apiのjsonデータがPerlでちゃんと解析されるのかご教示お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： t-okura
回答日時：2011/05/12 20:28

CGI としてブラウザでアクセスするのではなく、コマンドラインで実行するとデータが表示されませんか。

こちらで質問としてあげられたコードをコピペしてコマンドラインで実行すると JSON データはちゃんと表示されています。

CGI としてアクセスするとうまく表示されない理由は、このプログラムで作成される出力が HTML ドキュメントとして正しくないからです。

Content-Type: text/html と <html>との間には空行が必要ですし、なによりブラウザに表示するコンテンツは、<body></body> の間に入っていなければなりません。

HTML ドキュメントの構造について調べなおすことをお勧めします。