Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^14: CGI Action call

by tultalk (Monk)
on Mar 15, 2018 at 08:41 UTC ( [id://1210932]=note: print w/replies, xml ) Need Help??


in reply to Re^13: CGI Action call
in thread CGI Action call

By "sorted" I mean the order the columns appear in the table

I read your full response and understand. Is there a preference as to how the data is returned as the purpose is to load the response data back into the fields on the calling form.

I am just trying to pull one record at a time and not a chunk of the entire table

Replies are listed 'Best First'.
Re^15: CGI Action call
by Corion (Patriarch) on Mar 15, 2018 at 08:48 UTC

    A hash in Perl is never sorted and doesn't have a defined sort order. If you want to impose an order on the sequence of keys in JSON output, you will need to generate the JSON output yourself. But in most cases, the order simply is not important or required.

    If you want to use the JSON to create an SQL statement to insert the data into a database again, you should list the columns to insert explicitly. For example:

    my @columns = qw(DD address ); # and the other columns, omitted for br +evity my @payload = @{ $data }{ @columns }; my $placeholders = join ",", ('?' x @columns); my $columns_str = join ",", @columns; my $sql = "insert into mytable ($columns_str) values ($placeholders);" +; my $sth = $dbh->prepare( $sql ); $sth->execute( @payload ); # this assumes you use RaiseError => 1, whi +ch you always should

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1210932]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2024-04-23 19:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found