In "grep" ZWEI Bedingungen erfüllen - #76102 (Allgemeines zu Perl)

holli

2007-04-21 15:58

User since
2003-10-01
6 Artikel
BenutzerIn

[quote=PerlProfi,20.04.2007, 23:17]Hab ich gern gemacht, aber der Weg war wirklich nicht gerade elegent, so gehts nämlich auch:

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...[/quote]
geht noch kürzer :)

Code: (dl )

1
2

my %seen = ();
my @uniq = grep { $seen{(split /\t/)[1]}++ ? undef : $_ } @found;