samligne 2 lister mod hinanden - 2vejs

[Kim Schulz <sslug@sslug>]

hejsa
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 har noget ala dette:

foreach $domain (@domains){
        if (!($liste2 =~ /$domain/s)){
                print FH $domain,"<br>\n";
        }

}

foreach $domain2 (@domains2){
        if (!($liste1 =~ /$domain2/s)){
                print FH $domain2,"<br>\n";
        }

}

@domains (nye liste) og @domains2 (gamle liste) er de 2 lister af
domæner som skal checkes op mod hinanden. 
Den første foreach skulle checke for nye domæner i listen @domains i
forhold til @domains2 og anden foreach skulle gøre det modsatte (altså
vise hvilke der er i @domains2 men ikke i @domains). 

Desværre virker det som om at @domains2 eller @domains bliver tømt i
dette, for den sker aldrig noget i den anden foreach. 

Nogen der lige kan se hvad jeg gør galt? 



-- 
Kim Schulz - Freelance Development | I'm sorry, but my karma just ran
Email      : kim @ schulz.dk       | over your dogma. 
Tlf        : 51904262              |