Yusukebe::Tech

もう既にいろんな人が同じ機能のスクリプト公開してるけど、 自分で書いてみたらCPANモジュールのありがたさを改めて実感したのでメモ。 処理ほとんど書いてねー

#!/usr/bin/perl

use strict;
use LWP::Simple;
use XML::Simple;
use JSON::Syck;
use CGI;

my $q = new CGI;
my $url = "http://yusukebe.com/index.xml";
my $content = get ($url) or die "can't get the xml";
my $parser = XML::Simple->new();
my $xml = $parser->XMLin($content);
my $json = JSON::Syck::Dump($xml);

print $q->header(
  -type    => 'text/javascript+json',
  -charset => 'utf-8'
  );
print $json;