How to check if there is an existing entry in array of the hash in perl..please, please

[Cyrus]

Hi folks,
I'm new in this group, I would like to ask all of the Perl experts out
there, if any one knows how to prevent a duplicated entry in array of
the hash: here is what I need to do. The script periodically check for
disk status if there is an error it adds it to array of the hash with
keys & value, what I need is before it push/append it to the array of
the hash it check to see if the key & value exists if not then
push/append it else do other stuff or next
Thanks in advance & hop I can get an answer from one of you guys..
Cheers

Here is a portion of the code:
my $sh = $c->show_disk();
foreach my $sys (@sys_arry) {
foreach my $el (@$sh) {
if ($el->{'status'} ne "OK")
{
# Here I know I should check to see if the keys & value exits
but don't know how!!
push @DiskErr, {sys=>$sys, disk=>$el->{'id'},
status=>$el->{'status'}};
} else
{
print "$sys: Status OK\n";
}
}
}

 

[Cyrus]

Thus spoke Cyrus (on 2006-12-20 20:37):


Which "key and value". There are *three* of
them each. Do they depend on each other?
Or are they orthogonal?

Regards

Mirco