+------+-----------+--------------------+
| id | title | comments |
+------+-----------+--------------------+
| 2911 | Rush Hour | Fun :-) |
+------+-----------+--------------------+
| 3217 | Titanic | Drama, too long |
+------+-----------+--------------------+
| 6518 | Bambi | |
+------+-----------+--------------------+
| 7388 | Star Wars | "I'm your father!" |
+------+-----------+--------------------+
####
[{"id":2911,"title":"Rush Hour","comments":"Fun :-)"}
,{"id":3217,"title":"Titanic","comments":"Drama, too long"}
,{"id":6518,"title":"Bambi"}
,{"id":7388,"title":"Star Wars","comments":"\"I'm your father!\""}
]
##
##
use JSON;
use Data::Dumper;
my $json = ;
my $data = decode_json($json);
print Dumper $data;
__DATA__
[{"id":2911,"title":"Rush Hour","comments":"Fun :-)"},{"id":3217,"title":"Titanic","comments":"Drama, too long"},{"id":6518,"title":"Bambi"},{"id":7388,"title":"Star Wars","comments":"\"I'm your father!\""}]
##
##
$VAR1 = [
{
'title' => 'Rush Hour',
'id' => 2911,
'comments' => 'Fun :-)'
},
{
'title' => 'Titanic',
'id' => 3217,
'comments' => 'Drama, too long'
},
{
'title' => 'Bambi',
'id' => 6518
},
{
'title' => 'Star Wars',
'id' => 7388,
'comments' => '"I\'m your father!"'
}
];