Re^14: 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

Comment on Re^14: CGI Action call

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` [download]	[reply] [d/l]

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
[download]

[reply]
[d/l]