How to compare 2 hashes of arrays by values(not keys)

[aurekha]

Hi
I have hashes with arrays to its keys like,
%h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio']
);

%h2 = ('a'=>['abc','def'],
'b'=>['wert','wer']);
then, how can i compare the 2 hashes(based on values. not keys) and get distinct values ?


Any solution will be appreciated.... .

[nithinpes]

The question is not very clear. I am not understanding with what criteria you want to compare the values of hashes(which are inturn arrays-compare lengths or elements of array??) . Also, let us know what have you tried so far.
However, to begin with if you are trying to get values of the hash, you may use 'values' keyword.
e.g.

 foreach(values %h1) {
  print "@{$_}\n";   ## will print values of hash %h1(the array elements)
}
 

[aurekha]

Thanks for responding.
i want to compare the values of %h1 with values of %h2 and the final result will be

( the values of %h1, which are in %h1 and not in %h2)
Result is :

['ghi' , 'jkl' ]
[ 'hop' ' uio']

(since, these are not in %h2).
I want the above output. How can i do this?????

[nithinpes]

Thanks for responding.
i want to compare the values of %h1 with values of %h2 and the final result will be

( the values of %h1, which are in %h1 and not in %h2)
Result is :

['ghi' , 'jkl' ]
[ 'hop' ' uio']

(since, these are not in %h2).
I want the above output. How can i do this?????

You can make use of Data::Compare module to compare data structures in perl.

use Data::Compare;
use strict;
 
my %h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio']
);
my %h2 = ('a'=>['abc','def'],
'b'=>['wert','wer']);
 
foreach my $x (values %h1) {
  my $i=0;
 foreach my $y (values %h2) {
  $i=1 if(Compare($x,$y));
}
  print "@{$x}\n" if($i==0);
}
 

[aurekha]

Thanks alot. This seems,it solves 99% of my problem.But
in my hashes are like,
my %h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio'],
'd'=>['iooo','qwe']
);
my %h2 = ('x'=>['abc','def'],
'b'=>['wert','wer']
'd'=>['iooo','qwe']
);
Even though, the values are same, I want the output as,
I want to match both keys and values.
So the Optput will come as,
['iooo','qwe'].

so, for your code, i add,


use Data::Compare;
use strict;
my %h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio'],
'd'=>['iooo','qwe']
);
my %h2 = ('x'=>['abc','def'],
'b'=>['wert','wer'],
'd'=>['iooo','qwe']
);
foreach my $x (values %h1)
{
my $i=0;
foreach my $y (values %h2)
{
$i=1 if(Compare($x,$ y) && Compare($h1{$x} ,$h2{$y}) );
}
print "@{$x}\n" if($i==0);
}



but, This doesn't work.... Please help me out..... Thank you

[KevinADC]

first you said:

how can i compare the 2 hashes(based on values. not keys)

now you say:

I want to match both keys and values

which is it?

[aurekha]

sorry for inconvenience.

As per my Hod Instructions and also regarding my application, ineed to do the aleternate post also..


Firstly I tried, but didn't get result.
How can I Solve this problem. Please help me out.

[nithinpes]

Thanks alot. This seems,it solves 99% of my problem.But
in my hashes are like,
my %h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio'],
'd'=>['iooo','qwe']
);
my %h2 = ('x'=>['abc','def'],
'b'=>['wert','wer']
'd'=>['iooo','qwe']
);
Even though, the values are same, I want the output as,
I want to match both keys and values.
So the Optput will come as,
['iooo','qwe'].

Your initial question is entirely different from your current requirement. However, you can make use of the same code and modify it to suit your requirement.
To display the value of the key-value pairs that are common in both hashes:

use Data::Compare;
use strict;
 
my %h1 = ('a'=>['abc','def'],
'b'=>['ghi','jkl'],
'c'=>['hop','uio'],
'd'=>['iooo','qwe']
);
my %h2 = ('x'=>['abc','def'],
'b'=>['wert','wer'],
'd'=>['iooo','qwe']
);
 
foreach my $x (keys %h1) {
  my $i=0;
 foreach my $y (keys %h2) {
  $i=1 if(Compare($x,$y) && Compare($h1{$x},$h2{$y}) );
}
  print "@{$h1{$x}}\n" if($i==1);
}
 
 

Output will be:

 iooo qwe 
 
 

[aurekha]

Thanks alot nithinpes

Your Logic wroks well for me.


Thank alot.


Its great forum.

[aurekha]

I tried like this........... ..........

while(my($k1,$v 1) = each(%h1))
{
my $i = 0;
while(my($k2,$v 2) = each(%h2))
{
$i = 1 if(Compare($v1, $v2) && Compare($k1,$k2 ));
}
print "@{$v1}\n" if($i==0);
}


This works fine and yours also works for me............. ..
Thank you............