comment on

Here's a crude (but accurate) method of finding the differences. Reconstructing the required result is left as an exercise for the reader:)

#! perl -slw
use strict;
use Data::Dumper;
use Algorithm::Diff qw[ diff ];

my $given = {
          'Subtype' => [
                         {
                           'url' => 'http://www.google.nl/',
                           'title' => 'testNL'
                         },
                         {
                           'url' => 'http://www.google.be/',
                           'title' => 'testBE'
                         }
                       ],
          'name' => 'test1'
        };
my $retrieved = {
          'Subtype' => [
                         {
                           'url' => 'http://www.google.nl/',
                           'title' => 'testNL'
                         },
                         {
                           'url' => 'http://www.google.be/',
                           'title' => 'testBE'
                         },
                         {
                           'url' => 'http://www.google.de/',
                           'title' => 'testBE'
                         }
                       ],
          'name' => 'test2',
          'type' => 'test2'
        };


=pod

The result should be:
$result = {
          'Subtype' => [
                         {
                           'url' => 'http://www.google.de/',
                           'title' => 'testBE'
                         }
                       ],
          'name' => 'test2',
          'type' => 'test2'
        };
=cut       

print @$_ for map{ 
    @$_ 
} diff( 
    [ split "\n", Dumper( $retrieved ) ], 
    [ split "\n", Dumper( $given )     ] 
);

__END__
 8:37:10.53 P:\test>344057.pl
-9                         },
-10                         {
-11                           'url' => 'http://www.google.de/',
-12                           'title' => 'testBE'
-15          'name' => 'test2',
-16          'type' => 'test2'
+11          'name' => 'test1'
[download]

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail

In reply to Re: find differences between multiple hashes by BrowserUk
in thread find differences between multiple hashes by JYDawg

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks