Append JSON (from hashref)

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I create JSON from a DB query like this for use with a javascript autocomplete tool

my $tmp = $dbh->selectall_arrayref($query, { Slice => {} }, $SearchWor
+d );
my $json_str = encode_json( $tmp );
[download]

This works, but I want to add to the JSON response before returning it to ensure Asynchronous responses (http://easyautocomplete.com/guide#sec-async). How can I add the inputphrase to existing JSON object before returning it? inputPhrase in the easyautocomplete docs would have the value stored in $SearchWord in my perl.

Comment on Append JSON (from hashref) Download Code

Replies are listed 'Best First'.
Re: Append JSON (from hashref) by Corion (Patriarch) on Apr 06, 2017 at 11:11 UTC
Don't add it to the JSON, add it to `$tmp`. Alternatively, consider selecting the information directly from the database.	[reply] [d/l]
Re^2: Append JSON (from hashref) by Anonymous Monk on Apr 06, 2017 at 11:34 UTC
So the existing JSON looks like `[{"DESCRIPTION":"Description of record","RECNO":"RECORDNumber"}, ... m +ore records here ...]` [download] the database query is `SELECT RECNO, DESCRIPTION FROM RECORDS_TABLE WHERE RECNO LIKE ?` [download] Called with `$dbh->selectall_arrayref($query, { Slice => {} }, $SearchWord );` [download] Is there a way I can change the query to return a structure required by this plugin, while including the additional field `"inputPhrase": $SearchWord` [download]	[reply] [d/l] [select]
Re^3: Append JSON (from hashref) by Corion (Patriarch) on Apr 06, 2017 at 11:39 UTC
Yes. See perldsc on how to manipulate Perl data structures. You could either add your entry to the result directly, in your Perl code: `$tmp->[0]->{ 'inputPhrase' } = $SearchWord;` [download] ... or simply select the search phrase as another column: `SELECT RECNO, DESCRIPTION, ? as inputPhrase FROM RECORDS_TABLE WHERE RECNO LIKE ?` [download] `... $sth->execute( $SearchWord, $recno ); ...` [download]	[reply] [d/l] [select]
Re^4: Append JSON (from hashref) by Anonymous Monk on Apr 06, 2017 at 13:29 UTC
Re^5: Append JSON (from hashref) by Corion (Patriarch) on Apr 06, 2017 at 13:32 UTC
Some notes below your chosen depth have not been shown here
Re^3: Append JSON (from hashref) by huck (Prior) on Apr 06, 2017 at 11:37 UTC
like Corion said, add it to $tmp ~~`$tmp->{inputPhrase}=$SearchWord;`~~ ~~[download]~~ Then it will be converted to json just fine. Edit: Now im not paying enough attention, The hash is inside an array at `$tmp->[0]` See Re^3: Append JSON (from hashref)	[reply] [d/l] [select]