Net::IMG2JSONをつくってみた

Webservice IMG2JSONのAPIを使ったモジュールです。

callback有りでJSONP形式、なしでJSON形式だったのをそれぞれ関数化で分かりやすく区別。あと、そのままJSONでDumpしようとしたら色々引っかかる状態だったので、JSONやJSON::Syck、YAML::Syckを気のままに使えるように修正して吐き出します。

#!/usr/local/bin/perl

use warnings;
use strict;
use Net::IMG2JSON;
use JSON;
use YAML::Syck;
use Data::Dumper;

my $img2json = Net::IMG2JSON->new();
my $datas = {
    'imgurl'   => "http://assets.flog.co.nz/favicon.png",
    #'callback' => "callback",
};
my $res = $img2json->get_json($datas);
print $res."\n";
my $fromjson = from_json($res);
print Dumper($fromjson);
print YAML::Syck::Dump($fromjson);

{"url": "http://assets.flog.co.nz/favicon.png","mimeType": "image/png","width": 16,"height": 16,"byteSize": 524,"exif": {}}
$VAR1 = {
          'width' => 16,
          'url' => 'http://assets.flog.co.nz/favicon.png',
          'exif' => {},
          'byteSize' => 524,
          'mimeType' => 'image/png',
          'height' => 16
        };
--- 
byteSize: 524
exif: {}

height: 16
mimeType: image/png
url: http://assets.flog.co.nz/favicon.png
width: 16

これが何かに使えるかどうかは別として、とりあえずないよりはマシだ、ということで。codereposに上げてます。