Opened by Gast at 2007-04-20 16:56
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Hab ich gern gemacht, aber der Weg war wirklich nicht gerade elegent, so gehts nämlich auch:
Und das ist praktischerweise auch sofort richtig sortiert ;)
Naja, da hätte man auch eher drauf kommen können...
Code: (dl
)
1
2
my %seen;
@found = grep { !$seen{$_->[-1]}++ } sort { $b->[0] <=> $a->[0] } map { [split("\t", $_)] } @found;
Und das ist praktischerweise auch sofort richtig sortiert ;)
Naja, da hätte man auch eher drauf kommen können...