如何用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;

错误：

  

未定义的子程序＆amp; main :: decode_json在api.pl第4行调用。

如何解决这个问题？

Answer 1

use JSON;

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

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);