It's not recursive, but it should do the job...

my %ids = ();
foreach (@arr1) { $ids{$_}++;}
...
foreach (@arr8) { $ids{$_}++;}
foreach (keys(%ids)) { print $_ if $ids{$_} == 8; }

This assumes that each array contains only unique ids.

-David

On Tue, 17 Aug 2004 08:53:21 -0500, Mehta, Perdeep
<[EMAIL PROTECTED]> wrote:
> Hi,
> 
> I have a set of 8 1D arrays each containing around 100 to 150 ids. I want to 
> recursive parse each array to find what is common and unique across all 8 arrays and 
> print that out. Does any one know of an algorithm or has an idea that recursively 
> could do the task?
> 
> Thanks in advance for your thoughts and time.
> perdeep
> 
> Perdeep K. Mehta, PhD
> Hartwell Center for Bioinformatics & Biotechnology
> St. Jude Children's Research Hospital
> Memphis, TN 38105-2794
> 
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to