Monica y Stefan
Leonardo, Daniela
Tipps und Tricks mit mehreren Arrays
Elemente finden die in beiden Arrays vorhanden sind (intersection)
%count = ();
foreach $element (@A,@B)
{
$count{$element}++;
}
foreach $element (keys %count)
{
if ($count{$element} > 1) { push @intersection,$element; }
}
@A = (a 1 2 3 4);
@B = (a x y z);
@intersection = (a);
Alle Elemente aus beiden Arrays (union)
%count = ();
foreach $element (@A,@B)
{
$count{$element}++;
}
foreach $element (keys %count)
{
push @union,$element;
}
@A = (a 1 2 3 4);
@B = (a x y z);
@union = (1 2 3 4 a x y z);
Elemente finden die nur in @A vorhanden sind. (difference)
@seen{@B} = ();
foreach (@A)
{
push (@difference, $_) unless exists $seen{$_};
}
@A = (a 1 2 3 4);
@B = (a x y z);
@difference = (1 2 3 4);
Elemente aus 2 Arrays finden die nur einmal vorhanden sind (symmetrical difference)
%count = ();
foreach $element (@A,@B)
{
$count{$element}++;
}
foreach $element (keys %count)
{
if ($count{$element} <= 1) { push @difference,$element; }
}
@A = (a 1 2 3 4);
@B = (a x y z);
@difference = (1 2 3 4 x y z);
