koba::blogスマートフォン用の表示で見るkoba::blog2011-11-05JSONを見やすく表示するPerlWebAPIの返すJSONは、おいそれと読めるもんじゃない。Twitterのpublic_timelineだとこんな感じ。https://api.twitter.com/1/statuses/public_timeline.jsonそこで、JSONを見やすく表示するCGIを作ってみた。JSONをPerlのオブジェクトに変換するJSONモジュールを使えば、簡単にJSONをPerlのオブジェクトに変換できる。from_json($json);JavaScriptのオブジェクトと配列は、Perlのハッシュと配列に変換される。*1JSONの入れ子構造をulで表現する見やすく表現するために、JSONの入れ子はHTMLのul要素で表現することにした。'(null)';}入力パラメータはPerlのオブジェクト。HTMLの編集にはCGI.pmを使ってます。変換に失敗するとdieするので、ちょっと厄介。evalブロック内で処理する必要がある。入ってるんだけど、ファイル名と行番号はじゃまなので捨ててます。*2要素を非表示にできるようにする大きなデータの場合、全体を表示すると見にくいので、Firebugのように要素の表示・非表示を切り替えられるようにした。以下のJavaScriptを埋め込む。jQueryを使っています。$cgi->end_html;以下で動作させていますが、JSON::PPでの動作のため大きなJSONはパーズできません...http://www.yk.rim.or.jp/~koba/test/json.cgi*1:残念なことに数値か文字列かの情報は保存できない。そもそもPerlでは両者を区別してないからね。*2:JSONモジュールがdieするときに行番号を出さないようにすべきと思うけどなあ。(11)月別アーカイブ注目記事はてなブログをはじめよう!xlcさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。