ref:404 Blog Not Found:今日のMyMiniCity - 2007.12.21 + 野良API ref: 勝手に添削 - myminicity を Web::Scraper - Bulknews::Subtech - subtech XML を返す API(?) があるのになんでわざわざ scrape してんの? #!/usr/bin/perl use strict; use warnings; use XML::Simple; use LWP::Simple; use JSON::Syck; use URI::Escape; use CGI; use CGI::Carp qw(fatalsToBrowser); my $q = CGI->new; my ($city, $callback); if ($q->path_info =~ m{^/([^/]+)/(.*)}