I have the perl data structure and what i need to do is find all values in
@{$extractColumns{'2'}{'D'}} which are not there in @{$extractColumns{'2'}{'M'}} but seems like i need to put a flag somewhere and i messed up
foreach my $order (keys %extractColumns)
{
foreach my $value (@{$extractColumns{'2'}{'D'}})
{
foreach my $detValue (@{$extractColumns{'2'}{'M'}})
{
chomp($value);
chomp($detValue);
if ( $value eq $detValue )
{
print "Found\n";
}
else
{
print "Not Found\n";
}
}
}
}
---------- Post updated 04-08-10 at 08:45 AM ---------- Previous update was 04-07-10 at 06:37 PM ----------
Anyone ?