Kawa.netブログ（川崎有亮）

rss2json.pl
クライアント側 JavaScript では、XML.ParseXML を利用しています。
サーバ側 Perl では、XML::FeedPP を使って JSON に変換しました。
参考に、RSS→JSON 変換のスクリプトを置いておきます。

#!/usr/bin/perl
# xml2json.pl
# Copyright 2006 Yusuke Kawasaki http://www.kawa.net/

use strict;
use XML::TreePP;
use JSON::Syck;

my $xml = shift @ARGV || '-';
my $json = shift @ARGV || '-';

my $tpp = XML::TreePP->new();
$tpp->set( force_array => [ 'rdf:li', 'item', 'entry' ] );
$tpp->set( attr_prefix => '@' );
my $tree = $tpp->parsefile( $xml );
my $text = JSON::Syck::Dump( $tree );

open( OUT, "> $json" ) or die "$! - $json\n";
print OUT $text;
close( OUT );

perl xml2json.pl input.xml output.json

7:    use JSON::Syck;
16:   my $text = JSON::Syck::Dump( $tree );
        ↓
7:    use JSON;
16:   my $text = JSON::objToJson( $tree );

13:   $tpp->set( force_array => [ 'rdf:li', 'item', 'entry' ] );

14:   $tpp->set( attr_prefix => '@' );

15:   my $tree = $tpp->parsefile( $xml );
        ↓
15:   my $tree = $tpp->parsehttp( GET => $xml );