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]