Re: [PERL] samligne 2 lister mod hinanden - 2vejs

[Kim Schulz <sslug@sslug>]

On Mon, 23 Sep 2002 23:12:54 +0200 (CEST)
Ole Tange <sslug@sslug> wrote:
> On Mon, 23 Sep 2002, Kim Schulz wrote:
> 
> > jeg har 2 lister af domæner som jeg gerne vil have samlignet med
> > hinanden for at se ændringer i dem i forhold til hinanden (hvad der
> > er kommet ekstra på i den ene og hvad der er blevet fjernet.
> > Der står 1 domæne på hver liste og rækkefølgen er underordnet.
> 
> Jeg går ud fra, at domænerne er skrevet så de kan sammenlignes med
> 'eq'(altså at der ikke er forskel på case eller at der er subdomæner
> eller andet fnidder i). Et kort hack:
> 
> @sslug@sslug@domain2; @sslug@sslug@domain1;
> 
> print "I domain1 men ikke domain2: ",
>       grep (not $assoc2{$_}, @domain1 );
> 
> print "I domain2 men ikke domain1: ",
>       grep (not $assoc1{$_}, @domain2 );
> 
> NB: Det er ikke testet, så der kan være syntaxfejl.


Det viste sig selvfølgelig at det var en fejl 40, hvor jeg havde fået
lagt domains2 listen ind i $domains2 og ikke @domains2


-- 
Kim Schulz - Freelance Development | If God wanted us to be brave, why 
Email      : kim @ schulz.dk       | did he give us legs?   -- Marvin
Tlf        : 51904262              | Kitman