mapping the two resultssets in Perl

I am getting two resultsets I want to group the results togther from both the results mapping on the id column which is present in bothe the results and display the results
saibskAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Carl BohmanCommented:
Your description is very vague.  What do the result sets look like?  Are they file?  Are they arrays or hashes?  What type of output are you looking for?

The general approach is to use a hash with a unique key.  Something like the following (which assumes that the data is in two hashes where the key is the id and the value is the data).
foreach (keys %ResultSet1)
{
 push @{$FinalResult{$_}}, $ResultSet1{$_};
}
foreach (keys %ResultSet2)
{
 push @{$FinalResult{$_}}, $ResultSet2{$_};
}
foreach (keys %FinalResult)
{
 print join(" \n", $_, @{$FinalResult{$_}}), "\n";
}

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Suhas .QA ManagerCommented:
can you share the two sample result sets...
that will be easier for us to understand and can provide the required solution

Cheers...
Suhas
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.