[Milan-pm] comparing 2 lists

[Stefano Rodighiero]

On Tue, Oct 6, 2009 at 12:49 PM, marcos rebelo <oleber at gmail.com> wrote:

> my %hash;
> @hash{@array_num1} = ();
>
> open (my $OUT, '>', $file);
>
> foreach my $number (@array_num2) {
>    if ( exists $hash{$number} ) {
>        print "$number\n";
>        print $OUT "$number\n";
>    }
> }


The hash approach is suitable for golfing :)

[untested]

delete @h{ @an2 };
print join "\n", keys @h; # you have the list of numbers not appearing
in the second array

Or, if you put the numbers as value as long as keys:

print join "\n", delete @h{ @an2 }; # you have the list of numbers
with repetitions

s.

-- 
www.stefanorodighiero.net