Re: Formatting JSON the right way

It looks to me like your while loop is overwriting the values in your hash at every iteration. It would probably be better to construct an array of hashrefs to store the data instead and then convert that array to your JSON at the end.

Comment on Re: Formatting JSON the right way

Replies are listed 'Best First'.
Re^2: Formatting JSON the right way by Anonymous Monk on Aug 20, 2014 at 12:26 UTC
Could you provide any code to illustrate what your are suggesting? Thanks!	[reply]
Re^3: Formatting JSON the right way by hippo (Bishop) on Aug 20, 2014 at 12:42 UTC
Sure, try this: `my $returned_data = $data_handle->fetchall_arrayref ({}); # Any other ops here, and then: print $q->header(-type => "application/json", -charset => "utf-8"); my $json = encode_json ($returned_data); print $json;` [download] Untested (especially with ODBC which I almost never use) but hopefully you get the gist. See DBI for the details of `fetchall_arrayref`.	[reply] [d/l] [select]
Re^4: Formatting JSON the right way by Anonymous Monk on Aug 20, 2014 at 13:10 UTC
Using a while loop to fetch the data is not recommended? If so, is that how I would push each value into the array? `while (my $row = $data_handle->fetchrow_hashref()) { push( @{$returned_data{'name'}}, $row->{name} ); push( @{$returned_data{'city'}}, $row->{city} ); push( @{$returned_data{'state'}}, $row->{state} ); }` [download] Thanks!	[reply] [d/l]
Re^5: Formatting JSON the right way by scorpio17 (Canon) on Aug 20, 2014 at 15:30 UTC


No such thing as a small change
	PerlMonks