Forskel mellem to arrays

Altså, hvis de ikke er sorterede, er der ikke andet at gøre end
at løbe dem igennem med 2 forløkker, f.eks. som nedenfor, omend den
kan vist laves lidt smartere ;-)

@liste1 = (1,2,3,4,5,6,7,8,9,10);
@liste2 = (1,4,7,10,11,12,13,15);

foreach $e2 (@liste2) {
  push(@res,$e2);
  foreach $e1 (@liste1) {
    if ($e1==$e2) {pop(@res);}
  }
}

print join(\" - \",@res);

tja... den version har jeg allerede... Så det må jeg vel nøjes med.

Og de er ikke sorterede? Er de små eller store - måske kan det betale
sig at sortere dem inden sammenligningen, hvis de er store?

Prøv med kommandoen \"perldoc -q duplicate\"

Der er flere forslag

Det er rigtigt thunderbear. Det gode ved Perl er, at der er så mange muligheder. Jeg fik
aldrig installeret perldoc, men du prikker til min hukommelse. Hvad med at bruge et
associeret array, som med en hashteknik er ganske effektiv til at opbevare liste1. Så
løber vi bare liste2 igennem og checker om den er der:

@liste1 = (1,2,3,4,5,6,7,8,9,10);
@liste2 = (1,4,7,10,11,12,13,15);

foreach $e1 (@liste1) {
  $r1{$e1}=1;
}
foreach $e2 (@liste2) {
  if (!$r1{$e2}) {push(@res,$e2);}
}

print join(\" - \",@res);

Hvis din Perl er nyere end version 5.003 har du helt sikkert perldoc installeret på dit system.  Check med \"perl -V\" og \"perl -v\".

Til den her slags ting er \"grep\" og \"map\" særdeles effektive.

Sker her noget?