/scripts/tests/json_load.pl

https://code.google.com/p/camelbox/ · Perl · 20 lines · 12 code · 5 blank · 3 comment · 1 complexity · e39cde85bfd5746f5c174bf04ef5920b MD5 · raw file 

    

  1. #!/usr/bin/env perl
    2. 

  2. 

  3. # demo script to load a JSON data structure
    4. 

  4. use strict;
    5. 

  5. use warnings;
    6. 

  6. use JSON;
    7. 

  7. use Data::Dumper;
    8. 

  8. 

  9. my $parser = JSON->new->ascii->pretty->allow_nonref;
    10. 

  10. 

  11. my $json_string;
    12. 

  12. 

  13. while ( <STDIN> ) {
    14. 

  14.     # add the line to the JSON string
    15. 

  15.     $json_string .= $_;
    16. 

  16. } # while ( <STDIN> )
    17. 

  17. 

  18. my $object = $parser->decode($json_string);
    19. 

  19. my $dumper = Data::Dumper->new([$object]);
    20. 

  20. print $dumper->Dump . qq(\n);
    21.