[quote=Arasiel,13.11.2003, 11:04]Hallo,

mir wurde das englischsprachige Perlbuch "Perl Cookbook" von O`Reilly zur Verfügung gestellt.
Da ich mit dem von euch geposteten Vergleich-Algorythmus noch nicht richtig zufriden war,
hab ich mal in diesem Buch nachgesehen und einen Vergleich von 2 Arrays gefunden, der
die symmetrische Differenz von 2 Arrays bestimmt.
Der macht genau dass, was ich haben will.
Zur Information möchte ich ihn hier kurz posten, damit ihr ihn auch sehen könnt.

...
my @union = my @isect = my @diff = ();
my %union = my %isect = ();
my %count = ();
my $e;

foreach $e (@array1, @array2)
{
$count{$e}++
}

foreach $e (keys %count)
{
push(@union, $e);

if ($count{$e} == 2)
{
push @isect, $e;
}
else
{
push @diff, $e;
}
}

$listbox->insert('end', @diff); # Ausgabe in Listbox (Perl/TK)
...

Schönen Gruss.
:)[/quote]
Tip: Verwende doch die Code-Funktion wenn du Code postest.
Sieht imho besser aus!

Gruss