Re: hash keys compare

Do the parent keys have to match?

Otherwise,

my @unseen = do {
     delete %{$hash1->{$a}{$b}}, keys %{$hash2->{$d}{$e}};
     keys %{$hash1->{$a}{$b}};
}
[download]

That leaves it up to you to set up the parent keys you want in the match. That's destructive of $hash1.

$a and $b are poor choices for variable names. They are sacred to sort and can have side effects.

After Compline,
Zaxo

Comment on Re: hash keys compare Download Code

Replies are listed 'Best First'.
Re^2: hash keys compare by Anonymous Monk on Dec 19, 2007 at 13:49 UTC
hi Zaxo, What you have done makes sense, except that I dont want to delete but I want to print the variables. I just want to be able to print it . I am also getting this error when I use the code. html delete argument is not a HASH or ARRAY element or slice at db2cfg-report line 394. /html	[reply]
Re^2: hash keys compare by Anonymous Monk on Dec 19, 2007 at 16:09 UTC
if you do not want to alter the original hashes, then you must make copies of them before deleting. e.g.: > perl -wMstrict -e "my $hashrefA = {}; my $hashrefB = {}; my ($p, $q, $r, $s) = qw(fee fie foe fum); $hashrefA->{$p}{$q} = { qw(a 1 b 2 x 8 y 9) }; $hashrefB->{$r}{$s} = { qw(c 3 d 4 x 6 y 7) }; my %Apq_not_in_Brs = %{ $hashrefA->{$p}{$q} }; delete @Apq_not_in_Brs{ keys %{ $hashrefB->{$r}{fum} } }; my %Brs_not_in_Apq = %{ $hashrefB->{$r}{$s} }; delete @Brs_not_in_Apq{ keys %{ $hashrefA->{fee}{$q} } }; print qq(Apq not in Brs: @{[ keys %Apq_not_in_Brs ]} \n); print qq(Brs not in Apq: @{[ keys %Brs_not_in_Apq ]} \n); " Apq not in Brs: a b Brs not in Apq: c d [download] also: please give the monks a break and read and follow the Writeup Formatting Tips; the markup you're using is not doing what you seem to expect.	[reply] [d/l]