Re^4: Formatting JSON the right way

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!

Comment on Re^4: Formatting JSON the right way Download Code

Replies are listed 'Best First'.

Re^5: Formatting JSON the right way
by scorpio17 (Canon) on Aug 20, 2014 at 15:30 UTC

I think you want something more like this:

my @returned_data;
while (my $row = $data_handle->fetchrow_hashref()) {
  push (@returned_data, {
      'name'  => $row->{NAME},
      'city'  => $row->{CITY},
      'state' => $row->{STATE},
  });
}
$data_handle->finish;

print $q->header(-type => "application/json", -charset => "utf-8");
my $json = encode_json \@returned_data;
print $json;
[download]

Things to note: @returned_data is an array of hashrefs. Each time through the while loop, you grab a row from the database, and push a new hashref into the array (each hashref is like a single record of data). This isn't necessarily the best way to do it - it makes more sense to do it this way when you need to use different key names, or modify the data in some way. If all you want is to dump the database values to the web page "as is", consider the suggestions given here by other monks.

[reply]
[d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks