Opened by Liffi at 2012-02-22 15:15
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
du könntest höchstens die elemente von @common in einen hash packen, dann brauchst du nicht jedesmal mit einem grep drüberzulaufen:
denke nicht, dass das modul dafür was bietet, denn mengen sind ja im prinzip nicht sortiert, und bei einer intersection müsstest du dann eben auch definieren, nach der reihenfolge welcher der input-listen sortiert werden soll.
Code (perl): (dl
)
1 2 3 4
my %common = map { $_ => 1 } %common; # schleife push @common_orig_order, $elem if $common{ $elem };
denke nicht, dass das modul dafür was bietet, denn mengen sind ja im prinzip nicht sortiert, und bei einer intersection müsstest du dann eben auch definieren, nach der reihenfolge welcher der input-listen sortiert werden soll.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem