Buchstaben und Ziffern zählen - #63095 (Allgemeines zu Perl)

corpswalker

2006-02-20 15:00

User since
2006-02-20
5 Artikel
BenutzerIn
[default_avatar]

Hi, bin neu hier.
Ich versuche seit ein paar wochen aus einer Text-Datei einzelne Elemente zu zählen und später deren Entropie zu bestimmen, leider sind meine beschrenkten Kenntnisse nur zum Wörter-zählen gut! ???
Hab bis jetzt versucht den ganzen Text ohne Trennzeichen in einer Array zu speichern und mit den Substring weiter zu kommen leider hatte Perl ziemlich viele Einwende dagegen... :angry: und leider klappt auch nix was mit Wörter-zählen gleichkommt.

Code (perl): (dl )

open (INFILE, "Reuters_Topnews.txt");
while(<INFILE>) {
    chop;              &nbsp
; 
    tr/A-Z/a-z/;             # convert to lower case
    tr/.,:-;!?"(){}//d;       # strip out punctuation
    foreach $word (split) {  # split line into words 
        $count{$word}++;     # count words, put count into hash (word is key, count is value)
    } 
}
foreach $word (sort keys %count) {   # sort hash by the value of the key
   print "$word $count{$word}\n";    # print out the hash in key order
}

Danke in voraus für eure Tipps!
M.f.G.
Corpswalker