2012-02-22T14:15:27 Liffi

Eine Alternativloesung koennte auch sein, die Ausgabe von get_intersection mithilfe eines der urspruenglichen Arrays zu sortieren.
Gibt es dabei einen besonders geschickten Weg (evtl. mit compare)?

1
2
3
4
5
6
7

my $lc = List::Compare->new(@lists);
my @common = $lc->get_intersection();
my @common_orig_order;
for my $elem (@{$lists[1]})
{
    push(@common_orig_order, $elem) if (grep (($_ eq $elem), @common));
}