Re: [PERL] not eq

[Peter Makholm <sslug@sslug>]

"Frank Nørvig" <sslug@sslug> writes:

> Er det også noget man kunne benytte hvis man skulle finde dupletter i et
> array?

Jep.

> F.eks. hvis man har følgende array : "abe","løve","mus","abe","kat","fisk"
> etc...
> og skulle finde dupletter, i dette tilfælde "abe". ?

sub dups {
    my @list = @_;

# Løb @list igennem og tæl $hash{"abe"} op hver gang vi støder på "abe"
    my %hash;
    $hash{$_}++ for (@list);

# 'keys %hash' giver en liste over ting der er talt op.
# 'grep { $hash{$1} > 1 }' sorterer dem ud der er talt op mere end en gang
    return grep { $hash{$_} > 1 } keys %hash;
}

Forståeligt?

-- 
 Peter Makholm     |      I laugh in the face of danger. Then I hide until
 sslug@sslug |                                          it goes away
 http://hacking.dk |                                             -- Xander