Re^13: CGI Action call

Why do you think the keys are not in sorted order? To me, they look sorted:

{
  "DD":"2019-01-30",
  "DP":"2018-12-31",
  "MD":"120.00",
  "MJ":"2018-01-30",
  "address1":"1471 Meeks Rd",
  "address2":null,
  "business":"JZ Electroplating",
  "city":"Warran",
  "comments":"This is a test entry",
  "email":"jze@yahoo.com",
  "forename":"John",
  "id":57,
  "lastname":"Zinzer",
  "password":"1234",
  "phone_cell":"517-240-1004",
  "phone_home":"517-233-4378",
  "pin":"JbwmZ",
  "position":"General Member",
  "state":"MI",
  "user_id":19,
  "username":"bwm19",
  "zip":"45789-2334"
}
[download]

At least under the assumption that "sorted" means "sorted as sort would sort", I don't see any contradition.

Comment on Re^13: CGI Action call Download Code

Replies are listed 'Best First'.
Re^14: CGI Action call by tultalk (Monk) on Mar 15, 2018 at 08:41 UTC
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	[reply]
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]