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

[Ole Tange <sslug@sslug>]

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.

/Ole
-- 
Gør noget ved spam: Send det til sslug@sslug
http://www.net-tjek.dk/ehandel/indh1.htm