note
Anonymous Monk
Wow, I didn't know Dumper could be called that way.
<p>
print Dumper(json_to_perl($tstJSON));
<code>
$VAR1 = {
'cost' => '1029.32',
'more_info' => 'G1',
'strarray' => [
{
'refill_report' => {
'pick_location' => [
{
'inv' => '-25',
'pickid' => '72b921:3d1939'
},
{
'inv' => '67',
'pickid' => '6020a6:7f20e0'
},
{
'inv' => '72',
'pickid' => '5c0c8b:13a351'
},
{
'inv' => '75',
'pickid' => '72c941:3d1938'
},
{
'inv' => '-23',
'pickid' => '9020f6:7352d1'
}
],
vendorid' => '1358301537311',
'date' => 'Thu Jan 16 13:35:32 +0800 2013'
},
'inventory_report' => {
'current_value' => '126.30',
'transactid' => '1358301537312',
'date' => 'Thu Jan 17 13:35:37 +0800 2013',
'refill' => '69.91'
}
}
],
'prime_name' => "\x{4ea4}at1",
'deviceid' => 'iPad',
'ntype' => '',
'supplierid' => '1358301'
};
</code>
1016921
1016936
3