第6回：JSONとYAML (2/2)

#!/usr/bin/perl
use strict;
use warnings;
use JSON::Syck;
use LWP::UserAgent;

my $entrypoint = 'http://ws.geonames.org/searchJSON';
my $place      = 'tokyo';
my $rows       = 3;
my $request    = $entrypoint.'?q='.$place.'&maxRows='.$rows;

my $ua = LWP::UserAgent->new;
$ua->timeout(5);
my $response = $ua->get($request);
my $json = $response->content if $response->is_success;
my $data = JSON::Syck::Load($json);
foreach (@{$data->{geonames}}){
    print $_->{lat}.','.$_->{lng}."\n";
}


#!/usr/bin/perl
use strict;
use warnings;

use CGI;

my $cgi = CGI->new;
my $num1  = $cgi->param('num1');
my $num2  = $cgi->param('num2');
my $result = $num1 + $num2;

my $result = { sum => $num1 + $num2 };
my $json = JSON::Syck::Dump($result);

print "Content-type: text/plain\n\n$json";


{"sum":30}


---
name: hogehoge
age: 30
cdata:
- 24
- 11
- 13