Leser: 2
![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |
1 2
my $tmp_treffer; my @unique = grep{ index($GanzeUrl,$DomainName) != 0 and $Treffer <= $tmp_treffer and $tmp_treffer = $Treffer }@ausgangsarray
1
2
my $tmp_treffer;
my @unique = grep{ index($ausgangsarray[1],$ausgangsarray[3]) != 0 and $ausgangsarray[0] <= $tmp_treffer and $tmp_treffer = $ausgangsarray[0] }@ausgangsarray
push(@found,$Treffer."\t".$GanzeURL."\t".$IrgendeinText."\t".$DomainName)
push(@found,$Treffer."\t".$GanzeURL."\t".$IrgendeinText."\t".$DomainName)
1
2
3
4
for(@found) {
@output = split(/\t/,$_);
print "<p>Trefferanzahl: $output[0] - URL: $output[1] - Infotext: $output[2] - HauptDomain: $output[3]";
}
1
2
3
4
Trefferanzahl: 14 - URL: [URL=http://www.domain-a.de/unterseite/]http://www.domain-a.de/unterseite/[/URL] - Infotext: Bla bla... - HauptDomain: www.domain-a.de
Trefferanzahl: 19 - URL: [URL=http://www.domain-b.de/unterseite/]http://www.domain-b.de/unterseite/[/URL] - Infotext: Bla bla... - HauptDomain: www.domain-b.de
Trefferanzahl: 16 - URL: [URL=http://www.domain-c.de/unterseite/]http://www.domain-c.de/unterseite/[/URL] - Infotext: Bla bla... - HauptDomain: www.domain-c.de
Trefferanzahl: 20 - URL: [URL=http://www.domain-c.de/unterseite/]http://www.domain-c.de/unterseite/[/URL] - Infotext: Bla bla... - HauptDomain: www.domain-c.de
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# get doubles
my %seen;
foreach my$key (@found) {
my @ele = split("\t", $key);
$seen{$ele[-1]} = [] unless $seen{$ele[-1]};
push(@{$seen{$ele[-1]}}, [$i, $ele[0]]);
}
# delete doubles
my $i = 0;
foreach my$key (keys %seen) {
if (@{$seen{$key}} > 1) {
# sort
my $top = $seen{$key}->[0];
foreach my$act (@{$seen{$key}})
{ if ($act->[1] > $top->[1]) { $top = $act } }
# splice
foreach my$act (@{$seen{$key}})
{ if ($act->[0] != $top->[0]) { splice(@found, $act->[0]-$i, 1); ++$i } }
}
}
![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |