Your skill will accomplishwhat the force of many cannot PerlMonks

### Re: find differences between multiple hashes

by BrowserUk (Patriarch)
 on Apr 10, 2004 at 07:46 UTC ( #344100=note: print w/replies, xml ) Need Help??

in reply to find differences between multiple hashes

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' => [
{
'title' => 'testNL'
},
{
'title' => 'testBE'
}
],
'name' => 'test1'
};
my \$retrieved = {
'Subtype' => [
{
'title' => 'testNL'
},
{
'title' => 'testBE'
},
{
'title' => 'testBE'
}
],
'name' => 'test2',
'type' => 'test2'
};

=pod

The result should be:
\$result = {
'Subtype' => [
{
'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                         {
-12                           'title' => 'testBE'
-15          'name' => 'test2',
-16          'type' => 'test2'
+11          'name' => 'test1'

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail

Replies are listed 'Best First'.
Re^2: find differences between multiple hashes
by iea (Beadle) on Jul 12, 2008 at 13:24 UTC
ok i made it ... no idea why it didnt work in the first place. Thanks

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://344100]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2023-02-07 22:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?