json - 如何用 Perl 语言解码 JSON？

Question

如何用 Perl 语言解码 JSON？

我的尝试：

 #!/usr/bin/perl
use LWP::Simple;
$web_source = get('https://api.twitter.com/1.1/search/tweets.json');
$decoded_json = decode_json($web_source);
print $decoded_json;

错误：

在 api.pl 第 4 行调用的未定义子例程 &main::decode_json。

如何纠正这个？

Answer 1

use JSON;

我希望您知道您尝试访问的 URL 需要授权。

Answer 2

您可以在 perl 中像这样解码 json

#!/usr/bin/perl
    use JSON;
    use Data::Dumper;

    $json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';

    $text = decode_json($json);
    print  Dumper($text);