Maintainance of element order in hash

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

I am giving a small snippet of my code. I am pushing elements into the hash in this way.

$main_hash{"query"}{"filtered"}{"query"}{"bool"}{"must"} = \@file_arra
+y; 
$main_hash{"query"}{"filtered"}{"filter"} = $condition_array[(int($con
+dition)-1)];
[download]

I need the query in the first place. But getting the filter in the first place. How to bind the query in first place???? Expected output (After changing into JSON):

{
  "query": {
    "filtered": {
      "query": {
        "bool": {
          "must": [
            {"wildcard": {
              "path":  "/home/GEMS/CDRS/Delivery/ravi_16051820*.log"
              }
            }
          ]
        }
      },
      "filter": {
        "bool": {
          "should": [
            {
              "term": {
                "OrigInterface": "SMPP"
              }
            },
            {
              "term": {
                "OrigInterface": "SMPP"
              }
            }
          ]
        }
      }
    }
  }
}
[download]

Actual output

{
  "query": {
    "filtered": {
      "filter": {
        "bool": {
          "should": [
            {
              "term": {
                "OrigInterface": "SMPP"
              }
            },
            {
              "term": {
                "OrigInterface": "SMPP"
              }
            }
          ]
        }
      },
      "query": {
        "bool": {
          "must": [
            {"wildcard": {
              "path":  "/home/GEMS/CDRS/Delivery/ravi_16051820*.log"
              }
            }
          ]
        }
      }
    }
  }
}
[download]

Comment on Maintainance of element order in hash Select or Download Code

Replies are listed 'Best First'.
Re: Maintainance of element order in hash by hippo (Archbishop) on Sep 29, 2016 at 12:50 UTC
FAQ: How can I always keep my hash sorted?	[reply]
Re^2: Maintainance of element order in hash by ravi45722 (Pilgrim) on Sep 29, 2016 at 13:03 UTC
In seen `Tie::IxHash` but in this I am seeing only key pair value. But I dont understand how to give nested hashes into it. Can you write a small snipplet for the above example using Tie::Ixhash	[reply] [d/l]
Re^3: Maintainance of element order in hash by hippo (Archbishop) on Sep 29, 2016 at 13:43 UTC
I dont understand how to give nested hashes into it `#!/usr/bin/env perl # Hash order maintained use strict; use warnings; use Test::More tests => 1; use Tie::IxHash; tie my %foo, 'Tie::IxHash'; $foo{a} = [3, 2, 1]; $foo{b} = { s => 'senatus', p => 'populus', q => 'que', r => 'romanus' + }; is_deeply ([keys %foo], [qw/a b/], 'Order retained');` [download] and see perldsc for how to use nested data structures generally.	[reply] [d/l]
Re^4: Maintainance of element order in hash by ravi45722 (Pilgrim) on Sep 30, 2016 at 02:44 UTC
Re^5: Maintenance of element order in hash by hippo (Archbishop) on Sep 30, 2016 at 08:33 UTC
Re: Maintainance of element order in hash by jellisii2 (Hermit) on Sep 29, 2016 at 13:02 UTC
Hashes are unordered by design. If order is a problem, use an array, or take the advice linked in Re: Maintainance of element order in hash.	[reply]
Re: Maintainance of element order in hash by davido (Cardinal) on Sep 30, 2016 at 05:12 UTC
Are you absolutely committed to relying on JSON objects preserving order? If your design mandates that to be the case, you would be better off making your `filtered` element contain an array of objects rather than object elements. This is a problem that my be solved by one level of indirection. If there is any possibility that you can annul your marriage to a design that requires ordered JSON objects, I think you should give that possibility due consideration. Here are a few reasons why: Wikipedia: Object: an unordered collection of name/value pairs... JSON.org states, "An object is an unordered set of name/value pairs." The ECMA standard is silent on defining object ordering, but is explicit in asserting that arrays are ordered. RFC4627 does not define how objects are to be ordered, and therefore makes no guarantees. It does, however, mandate that a JSON parser `MUST` accept all texts that conform to the JSON grammar. It stands to reason, then, that all conforming JSON parsers do not need to be sensitive to object ordering. RFC7159 again omits any guarantees about object order, and goes so far as to include this advice: "JSON parsing libraries have been observed to differ as to whether or not they make the ordering of object members visible to calling software. Implementations whose behavior does not depend on member ordering will be interoperable in the sense that they will not be affected by these differences. Perl's hashes have a high degree of parity with JSON objects. Standard Perl hashes do not maintain any concept of static order. You can tie a Perl hash to a class that maintains order, but in doing so you make tradeoffs, giving away speed and memory for reliable ordering. Is it worth the tradeoff? If so, you may need to also rethink the serialization format you are using, because JSON isn't guaranteed to serialize and deserialize objects in any particular order. Any guarantees would have to come from the implementation. As an example, JSON parsers such as JSON::XS allow you to specify canonical ordering for object keys. But canonical is used to mean a sorted order. Not a user-specified order. Dave	[reply] [d/l] [select]