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

PerlProfi

2007-04-21 20:43

User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]

Ja stimmt, bei meiner Version muss das natürlich noch zusammengefügt werden:

Code: (dl )

1
2

my %seen;
@found = map { join("\t", @{$_}) } grep { !$seen{$_->[-1]}++ } sort { $b->[0] <=> $a->[0] } map { [split("\t", $_)] } @found;

@holli, deine Version bringt nicht das gewünschte Ergebnis, der Name der Haupt-Domain steht im letzten Teil nach split() nicht im 2.
Ausserdem soll nach der Trefferzahl, dem 1. Teil nach split() sortiert werden.\n\n