Perl 讀取 JSON 寫法
#!/usr/bin/perl
# apt-get install libjson-perl
# http://search.cpan.org/dist/JSON/# use JSON qw/to_json from_json/;
use JSON;
use Data::Dumper;$json_text = '{"a":1}';
print Dumper from_json($json_text);
# $hash = from_json($json_text);
# print $hash->{'a'} . "\n";