Compare two complex Hash

[dillipkumar]

Hi all,

i have two hashes. i need 2 compare these hases & Results are stored in %different hash.

Please Help somebody.

Thanks
DK.

%hash1 = (    file1 => [            
                            {
                              line => '107',
                              filename => 'SRC',
                              source => '',
                              target => [{ 
                                                    C1 => '023',
                                                    C2 => 'X',
                                                },],
                            },
                            {
                              line => '21',
                              filename => 'SRC',
                              source => '',
                              target => [{
                                                    C1 => '139',
                                                    C2 => '221FIFTH',
                                             },],
                            },
                            {
                              line => '1',
                              filename => 'SRC',
                              source => '',
                              target => [{
                                                    C1 => '004',
                                                    C2 => '101STR',
                                             },],
                            },
                    ]
 
           );
 
%hash2 = (    file2 => [        {
                              line => '107',
                              filename => 'TRG',
                              target => '',
                              source => [ 
                                                { 
                                                    C1 => '023',
                                                    C2 => 'X',
                                                },
                                         ],
                            },
                            {
                              line => '1',
                              filename => 'TRG',
                              target => '',
                              source => [ 
                                                {
                                                    C1 => '003',
                                                    C2 => '101STHR',
                                                },
                                             ],
                            },
                            {
                              line_number => '21',
                              filename => 'TRG',
                              target => '',
                              source => [ 
                                                {
                                                    C1 => '1349',
                                                    C2 => '221FIFTH',
                                                },
                                             ],
                            },
                    ],
                    );
 

Above are 2 hashes

After comparing these two hashes, i need the results in below format

%different = (    diff => [            
                            {
                              line => '1',
                              filename => 'SRC',
                              source => '',
                              target => [{
                                                    C1 => '004',
                                                    C2 => '101STR',
                                             },],
                            },
                            {
                              line => '1',
                              filename => 'TRG',
                              source => [ 
                                                {
                                                    C1 => '003',
                                                    C2 => '101STHR',
                                                },
                                        ],
                              target => '',
                            },
                            {
                              line => '21',
                              filename => 'SRC',
                              source => '',
                              target => [{
                                                    C1 => '139',
                                                    C2 => '221FIFTH',
                                             },],
                            },
                            {
                              line => '21',
                              filename => 'TRG',
                              source => [{
                                                    C1 => '139',
                                                    C2 => '221FIFTH',
                                             },],
                              target => '',
                            },
                        ]
 
           );

[KevinADC]

What have you tried?

[chaosprime]

You probably need the CPAN module Data::Compare.

[nithinpes]

I believe you had posted a similar question sometime back and got a solution for it.

[pranksk]

Hi,

Were you able to figure out how to compare these two hashes?
I am trying to do the same and not sure how. I'm new to Perl as well.

Any help will be much appreciated.

Thanks!

[numberwhun]

@pranksk
You may want to examine the link referenced in the post prior to yours by Nithinpes. It is the OPs other thread and it may help you.

Regards,

Jeff

[pranksk]

Howevrr, that link points to a thread that explains how to merge the two hashes.

I just want to compare the 2 hashes (compare all keys and values of all parent and child nodes) and print out the differences in keys, values, etc

[KevinADC]

Are the hashes simple hashes or complex hashes? A simple hash would be one level of key/value pairs, a complex hash would be anything different from that, like a hash of arrays or hash of hashes, etc. Also, what have you tried so far?

[pranksk]

$VAR1 = {
          'files' => {
                     'requirement_set' => {
                                          'exclude_arch' => [
                                                            'ARCH_C',
                                                            'ARCH_A',
                                                            'ARCH_E'
                                                          ]
                                        },
                     'name' => [
                               'file_1.m',
                               'file_2.m'
                             ]
                   },
          'version' => '1.0',
          'macrodef' => {
                        'local2' => {
                                    'exclude_arch' => 'ARCH_F'
                                  },
                        'local3' => {
                                    'exclude_arch' => 'ARCH_F'
                                  },
                        'local1' => {
                                    'exclude_arch' => 'ARCH_E'
                                  }
                      },
          'dir' => {
                   'requirement_set' => {
                                        'attribute' => {
                                                       'content' => 'ATTR_B',
                                                       'type' => 'device'
                                                     },
                                        'requirement_set' => {
                                                             'exclude_arch' => [
                                                                               'ARCH_E',
                                                                               'ARCH_F'
                                                                             ]
                                                           }
                                      }
                 }
        };
 
 

My second hash should be the same as this else I want to assert.

[pranksk]

sub _compare_hashes :PRIVATE {
 
    my ($data1, $data2) = @_;
    my $found = 0;
    my @missing;
 
    foreach my $parent_node1 (keys %data1) {
        my @childNodes1 = $parent_node1->childNodes();
        foreach $parent_node2 (keys %data2) {
            my @childNodes2 = $parent_node2->childNodes();
            if ($data1{$parent_node1} eq $data2{$parent_node2}) {
                print "Matched $data1{$parent_node1} & $data2{$parent_node2}\n";
            } else {
                print "Mismatched $data1{$key1}\n";
                push @missing, $data1{$key1};
            }
            if ( (scalar(@childNodes1) > 1) || (scalar(@childNodes2) > 1) ) {
                foreach my $childNode1 (@childNodes1) { 
                    foreach my $childNode2 (@childNodes2) { 
                        _compare_hashes($childnode1, $childnode2)
                    }
                }
            }
        }
    }
}
 

[pranksk]

how do I use code tags so my posts display in a good format?

[pranksk]

$VAR1 = {
          'files' => {
                     'requirement_set' => {
                                          'exclude_arch' => [
                                                            'ARCH_C',
                                                            'ARCH_A',
                                                            'ARCH_E'
                                                          ]
                                        },
                     'name' => [
                               'file_1.m',
                               'file_2.m'
                             ]
                   },
          'version' => '1.0',
          'macrodef' => {
                        'local2' => {
                                    'exclude_arch' => 'ARCH_F'
                                  },
                        'local3' => {
                                    'exclude_arch' => 'ARCH_F'
                                  },
                        'local1' => {
                                    'exclude_arch' => 'ARCH_E'
                                  }
                      },
          'dir' => {
                   'requirement_set' => {
                                        'attribute' => {
                                                       'content' => 'ATTR_B',
                                                       'type' => 'device'
                                                     },
                                        'requirement_set' => {
                                                             'exclude_arch' => [
                                                                               'ARCH_E',
                                                                               'ARCH_F'
                                                                             ]
                                                           }
                                      }
                 }
        };
 

The other hash should be exactly the same. I just want to assert with a message and the mismatched key/value if there is any difference found in the hashes.

and Here's what I've been trying to do to compare the hashes:

sub _compare_hashes :PRIVATE {
 
    my ($data1, $data2) = @_;
    my $found = 0;
    my @missing;
 
    foreach my $parent_node1 (keys %data1) {
        my @childNodes1 = $parent_node1->childNodes();
        foreach $parent_node2 (keys %data2) {
            my @childNodes2 = $parent_node2->childNodes();
            if ($data1{$parent_node1} eq $data2{$parent_node2}) {
                print "Matched $data1{$parent_node1} & $data2{$parent_node2}\n";
            } else {
                print "Mismatched $data1{$key1}\n";
                push @missing, $data1{$key1};
            }
            if ( (scalar(@childNodes1) > 1) || (scalar(@childNodes2) > 1) ) {
                foreach my $childNode1 (@childNodes1) { 
                    foreach my $childNode2 (@childNodes2) { 
                        _compare_hashes($childnode1, $childnode2)
                    }
                }
            }
        }
    }
}
 

[KevinADC]

I would look into Data::Compare if you can use modules.

http://search.cpan.org/~dcantrell/Da...ata/Compare.pm

[numberwhun]

@pranksk
See this thread for your answer.

Regards,

Jeff

http://bytes.com/faq.php?faq=how_to_ask_a_question