Re: [PERL] lister

[Claus Ekstrøm <sslug@sslug>]

Hej.

>Man har to lister. De to lister skal sammenlignes. Hvis der er to
> sammenfaldene værdier skal værdien fjernes i den ene liste(Det er
> altid den samme liste man fjerner fra.). Listernes længder varierer fra
> gang til gang.

Jeg ville lave begge lister til hash'es og så checke på følgende måde:

#!/usr/local/bin/perl -w

@listea = (1, 2, 3, 4, 5, 6, 7, 8, 9);
@listeb = (1, 2, 10, 11, 12, 13, 14, 15);

undef %hasha;
undef %hashb;
@sslug@sslug = @listea;
@sslug@sslug = @listeb;

foreach (keys(%hasha)) {
    if ($hashb{$_}) {
        print "Match for $_\n";
    }
}

Mvh,

Claus