Thread Wörterliste addiert sich (6 answers)
Opened by Clubcola at 2018-02-06 18:01

GwenDragon
 2018-02-06 20:16
#187977 #187977
User since
2005-01-17
14761 Artikel
Admin1
[Homepage]
user image
Dein Code war:
Code (perl): (dl )
1
2
3
4
5
6
7

    foreach $wort (@liste) {            
        $wortliste{$wort}++;    
    }

    foreach $wort (sort keys %wortliste) {
        push (@neue_liste,"$wortliste{$wort}||$wort");  
    }
%wortliste hat ja immer dieselbe Anzahl an Schlüsselbegriffen.
Aber du schiebst in @neue_liste mit push (@neue_liste,"$wortliste{$wort}||$wort"); wieder alles neu rein.

Vielleicht meintest du das.
Nur mein Vorschlag (habs nicht getestet):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

foreach(@$ergebnisse)
{
    $beschr1 = $_->{beschr1};
    $id = $_->{id};
                
    ## Wörter in Array schreiben, zählen und nach Vorkommen sortieren

    push @liste, split /[^a-zA-ZäöüÄÖÜß-]/, $beschr1;
   
    foreach $wort (@liste) {            
        $wortliste{$wort}++;    
    }

}

foreach $wort (sort keys %wortliste) {
        push (@neue_liste,"$wortliste{$wort}||$wort");  
}

my @sortierte_liste = sort { $b <=> $a } @neue_liste;

print "<br>".@sortierte_liste;


Editiert von GwenDragon: Hinweis ergänzt
Last edited: 2018-02-07 14:57:42 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Wörterliste addiert sich