JSONで遊びたい - あくる日JSONをいじってみようと思っていたのだが、うまい具合にデータを出してくれているところが少ない。（del.icio.usくらい？）そんなわけで、RSSをJSONに加工して、それで遊んでみることにした。 #!/usr/bin/perl use strict; use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; use XML::RSS; use JSON; binmode STDOUT,':utf8'; my $uri; if( -t ){ $uri = shift @ARGV; } else{ ( $uri = $ENV{'PATH_INFO'} ) =~ s|^/||; print "Content-Type: text/javascript; charset=utf-8?n?n"; } my $rss = XML::RSS->new;
