Re: [PERL] not eq

[Ole Tange <sslug@sslug>]

On Wed, 1 Oct 2003, Frank Nørvig wrote:

> > Kig på grep.
> > Er dette noget du skal meget, så overvej en hash.
>
> Er det også noget man kunne benytte hvis man skulle finde dupletter i et
> array?
>
> 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". ?

@a= ("abe","løve","mus","abe","kat","fisk", "abe");
@dub=();

for (@a) { $is_dup{$_}++ and do { push @dub, $_ }; }

Dette giver 2 aber i @dub.

Hvis du kun vil have een abe:

for (@a) { $is_dup{$_}++ and $dub{$_}++ }
@dub=keys %dub;

/Ole
-- 
CD'er søges. Har du gamle CD'er, som du ikke bruger mere (f.eks. med
forældet software), så vil jeg gerne have dem. De skal helst være alm.
CD'er (ikke CD-R/CD-RW).