Comments on: Parsing JSON In Perl By Example – SouthParkStudios.com South Park Episodes http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/ where things have nothing to do with beer - tutorials, tips, how-tos, thoughts, hacks, and other techy nonsense Sat, 11 Feb 2012 17:00:25 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Aneesh Karvehttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52347 Aneesh Karve Thu, 12 Jan 2012 23:45:55 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52347 thank you for the clear example. for general coding practices in the wild, it's safer to bypass the JSON object's integrity checks one-by-one, if and only if needed (i.e. allow_nonref, relaxed, escape_slash, loose, allow_singlequote, allow_barekey). if programmers use all of these bypass flags by default, they're missing out on the improved performance of JSON::XS, as well as missing out on data integrity checks. thank you for the clear example.

for general coding practices in the wild, it's safer to bypass the JSON object's integrity checks one-by-one, if and only if needed (i.e. allow_nonref, relaxed, escape_slash, loose, allow_singlequote, allow_barekey).

if programmers use all of these bypass flags by default, they're missing out on the improved performance of JSON::XS, as well as missing out on data integrity checks.

]]> By: henqhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52328 henq Sun, 01 Jan 2012 16:22:54 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52328 Or, for simple JSON of clean source, consider using an eval: my $res = $response->content; $res =~ s/:/ =>/g; #replace semicolon by perl's assign operator $res =~ s/null/0/g; #or '' , depending on usage my @mydata = eval {$res}; # if you know it is an array print $@ if ($@); print $mydata[0] ; # first element Or, for simple JSON of clean source, consider using an eval:

my $res = $response->content;
$res =~ s/:/ =>/g; #replace semicolon by perl's assign operator
$res =~ s/null/0/g; #or " , depending on usage

my @mydata = eval {$res}; # if you know it is an array
print $@ if ($@);

print $mydata[0] ; # first element

]]> By: Artem Russakovskiihttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52291 Artem Russakovskii Mon, 12 Dec 2011 16:26:29 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52291 I was wondering the same thing until I realized that JSON doesn't have parameters like XML does which makes its parsing, consumption, and direct translation into data structures very easy and straightforward. It's also a lot more compact, though harder to read if unformatted. JSON parsers seem to be simpler, more, agile, and less buggy as they don't have to be as complex. I was wondering the same thing until I realized that JSON doesn't have parameters like XML does which makes its parsing, consumption, and direct translation into data structures very easy and straightforward. It's also a lot more compact, though harder to read if unformatted. JSON parsers seem to be simpler, more, agile, and less buggy as they don't have to be as complex.

]]> By: spydoxhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52290 spydox Mon, 12 Dec 2011 16:13:31 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-52290 (unlike some others) I appreciate your effort to publish this. We're just getting started with JSON so it was a useful Primer. Sometimes I do wonder why we *invent another way* do so something - XML pretty much handles NV pairs. But I'm trying to keep an open mind, and optimistic that JSON will be a great tool for us. Our goal is primarily parsing arbitrary order form data, then applying logic and rules, we interpret the data to populate thousands of Oracle fields. I'm not really sure which of those parts JSON helps us with- perhaps as a object we can pass of to an SQL generator? That's really not a difficult role, but I'm hoping it standardizes that step. (unlike some others) I appreciate your effort to publish this. We're just getting started with JSON so it was a useful Primer.

Sometimes I do wonder why we *invent another way* do so something – XML pretty much handles NV pairs. But I'm trying to keep an open mind, and optimistic that JSON will be a great tool for us.

Our goal is primarily parsing arbitrary order form data, then applying logic and rules, we interpret the data to populate thousands of Oracle fields.

I'm not really sure which of those parts JSON helps us with- perhaps as a object we can pass of to an SQL generator? That's really not a difficult role, but I'm hoping it standardizes that step.

]]> By: Paul Maddoxhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51665 Paul Maddox Sat, 04 Jun 2011 09:37:25 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51665 Very useful. Thanks. Very useful. Thanks.

]]> By: Goutham Rajahttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51575 Goutham Raja Thu, 05 May 2011 12:10:32 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51575 You done a great job... Thanks a lot... You done a great job… Thanks a lot…

]]> By: Wes Garrisonhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51386 Wes Garrison Wed, 16 Feb 2011 20:43:22 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-51386 This was fantastic, thanks a bunch! I used LWP::UserAgent to POST the request, but the JSON library worked great, and your example made it easy to understand how the parsed data was structured ie. hash -> array -> hash, etc. -Wes This was fantastic, thanks a bunch!

I used LWP::UserAgent to POST the request, but the JSON library worked great, and your example made it easy to understand how the parsed data was structured ie. hash -> array -> hash, etc.

-Wes

]]> By: BartJhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-39251 BartJ Tue, 08 Jun 2010 11:49:49 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-39251 this is so not true...Read this answer on StackOverflow to find out why - http://stackoverflow.com/questions/408570/regular-expression-to-parse-an-array-of-json-objects/408641#408641 Excerpt from the answer: "Balanced parentheses are literally a textbook example of a language that cannot be processed with regular expressions. JSON is essentially balanced parentheses plus a bunch of other stuff, with the braces replaced by parens. In the hierarchy of formal languages, JSON is a context-free language. Regular expressions can't parse context-free languages." this is so not true…Read this answer on StackOverflow to find out why – http://stackoverflow.com/questions/408570/regular-expression-to-parse-an-array-of-json-objects/408641#408641
Excerpt from the answer: "Balanced parentheses are literally a textbook example of a language that cannot be processed with regular expressions. JSON is essentially balanced parentheses plus a bunch of other stuff, with the braces replaced by parens. In the hierarchy of formal languages, JSON is a context-free language. Regular expressions can't parse context-free languages."

]]> By: mangoohttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-38654 mangoo Thu, 03 Jun 2010 10:31:11 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-38654 Looks like I missed "-support_by_pp;" ;) - working now, thanks. Looks like I missed "-support_by_pp;" ;) – working now, thanks.

]]> By: mangoohttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-38653 mangoo Thu, 03 Jun 2010 10:29:20 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-38653 Hmm, doesn't seem to be working for me: Getting json http://www.southparkstudios.com/includes/utils/proxy_feed.php?html=season_json.jhtml%3fseason=1 escape_slash is not supported in JSON::XS. at json.pl line 25 loose is not supported in JSON::XS. at json.pl line 25 allow_singlequote is not supported in JSON::XS. at json.pl line 25 allow_barekey is not supported in JSON::XS. at json.pl line 25 [[JSON ERROR]] JSON parser crashed! malformed JSON string, neither array, object, number, string or atom, at character offset 0 ["/* Generated locally..."] at json.pl line 25. Hmm, doesn't seem to be working for me:
Getting json http://www.southparkstudios.com/includes/utils/proxy_feed.php?html=season_json.jhtml%3fseason=1
escape_slash is not supported in JSON::XS. at json.pl line 25
loose is not supported in JSON::XS. at json.pl line 25
allow_singlequote is not supported in JSON::XS. at json.pl line 25
allow_barekey is not supported in JSON::XS. at json.pl line 25
[[JSON ERROR]] JSON parser crashed! malformed JSON string, neither array, object, number, string or atom, at character offset 0 ["/* Generated locally..."] at json.pl line 25.

]]> By: Parvizhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-35908 Parviz Tue, 27 Apr 2010 01:07:14 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-35908 great! I tried it and it worked. Thanks for sharing this. great! I tried it and it worked. Thanks for sharing this.

]]> By: Ventrilo Servershttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-29113 Ventrilo Servers Wed, 23 Dec 2009 23:12:44 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-29113 This is extremely useful! Thank you. South Park is awesome also so it's a great example. =) This is extremely useful! Thank you. South Park is awesome also so it's a great example. =)

]]> By: South Parkhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-28084 South Park Sat, 05 Dec 2009 00:16:33 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-28084 Finally got the hang of this, works a treat thank you so much artem! Finally got the hang of this, works a treat thank you so much artem!

]]> By: an essayhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-28054 an essay Fri, 04 Dec 2009 09:56:55 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-28054 Hey its a marvelous post. Wish You sucess. Hey its a marvelous post. Wish You sucess.

]]> By: South Parkhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-27903 South Park Tue, 01 Dec 2009 01:15:03 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-27903 This was really useful to me. I'm still new to JSON though so i guess it'll take some getting used to. Thanks though buddy! P.S Also a massive fan of south park, props! ;) This was really useful to me. I'm still new to JSON though so i guess it'll take some getting used to. Thanks though buddy!

P.S Also a massive fan of south park, props! ;)

]]> By: Farhanhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-20630 Farhan Mon, 13 Jul 2009 03:00:43 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-20630 Hi there, I appreciate the concise example you've provided. I was looking for a way to get something done in JSON quickly, and this looks like the ticket. Thanks so much, and keep it up. Farhan Hi there,

I appreciate the concise example you've provided. I was looking for a way to get something done in JSON quickly, and this looks like the ticket.

Thanks so much, and keep it up.

Farhan

]]> By: Artem Russakovskiihttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-18401 Artem Russakovskii Sun, 24 May 2009 06:21:16 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-18401 @dilino Well, if we want to get technical, then you need all these: http://deps.cpantesters.org/?module=WWW::Mechanize;perl=latest but they should be installed automatically when you install WWW::Mechanize. @jnlawton Indeed, you're right, it wasn't a very complicated example (though 'episode' is actually an array, isn't it?). The purpose was to introduce the usage of the JSON module. @dilino
Well, if we want to get technical, then you need all these: http://deps.cpantesters.org/?module=WWW::Mechanize;perl=latest but they should be installed automatically when you install WWW::Mechanize.

@jnlawton
Indeed, you're right, it wasn't a very complicated example (though 'episode' is actually an array, isn't it?). The purpose was to introduce the usage of the JSON module.

]]> By: dilinohttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-18400 dilino Sun, 24 May 2009 05:55:24 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-18400 Great article, thanks! I also needed HTTP/Response/Encoding.pm from http://search.cpan.org/~dankogai/HTTP-Response-Encoding-0.05/lib/HTTP/Response/Encoding.pm . Great article, thanks! I also needed HTTP/Response/Encoding.pm from http://search.cpan.org/~dankogai/HTTP-Response-Encoding-0.05/lib/HTTP/Response/Encoding.pm .

]]> By: The Invisible War » Eninventhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-13742 The Invisible War » Eninvent Wed, 25 Feb 2009 17:01:16 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-13742 [...] For those inclined, here’s the perl script I used to query the API. It borrows heavily from this example. [...] [...] For those inclined, here's the perl script I used to query the API. It borrows heavily from this example. [...]

]]> By: jnlawtonhttp://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-5280 jnlawton Wed, 09 Jul 2008 04:23:59 +0000 http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/#comment-5280 With all due respect, this is a trivial example. The JSON structure didn't have any embedded objects or even an array. Did you even need a JSON parser for this? Nope... RegExp's would have been fine. jl With all due respect, this is a trivial example. The JSON structure didn't have any embedded objects or even an array. Did you even need a JSON parser for this? Nope… RegExp's would have been fine.

jl

]]>