Re: Hash of hashes: Check if the element is present in previous hash table

[Riales]

Do you really need a HoH for this? I'm thinking a hash will suffice. Maybe something like this:

my %hash = ();

foreach my $file (qw/File1 File2 File3 File4/) {
    my %unique_in_file = ();

    open(IN, '<', $file);

    while (<IN>) {
        chomp;
        $hash{$_}++ unless $unique_in_file{$_};
        $unique_in_file{$_} = 1;
    }

    close(IN);
}

use Data::Dumper;
print Dumper(grep { $hash{$_} == 4 } keys %hash);

[snape]

Hi Riales,

Thanks for the reply. I am interested to know how can traverse with the elements when there is HoH since i need to the certain operation. Thanks again !!