RE: Comparing 2 lists

[Marcos . Rebelo]

my @list1 = (...);
my @list2 = (...);
my @result;

foreach my $line (@list1){
        foreach my $sec_line (@list2){
                push (@result, $line) 
                        if $line eq $sec_line;
        }
}
print @result;


or 

my @list1 = (...);
my @list2 = (...);
my @result;

my %list1Hash;
$list1Hash{$_}=1 foreach (@list1);

foreach my $match (@list2){
        push(@result, $match) if $list1Hash{$match};
}
print @result;

-----Original Message-----
From: awarsd [mailto:[EMAIL PROTECTED]
Sent: Monday, July 21, 2003 4:35 PM
To: [EMAIL PROTECTED]
Subject: Re: Comparing 2 lists


Hi,

you have an array say list1.
you have a second array say list2.

counter=0;
foreach $line(@list1){
    foreach $sec_line(@list2){
      if($line eq $sec_line){
            $counter++;
            $new_list[$counter]=$line;
        }
    }
}
print @new_list;

something like that



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]