Marcus Vieß: Text datei auswerten

Hallo,

ich bin Perl Newbie, wäre schön wenn Ihr mir ein bisschen auf die Beine helfen würdet.

Ich habe eine DVD Review Seite. Nun lasse ich die DVD-Reviews zählen also ich schreibe in eine normale txt Datei welche Reviews angezweigt wurden.

Format :

The Rock
Beavis und Butthead
The Rock
Last Supper

... etc.

Wie kann ich diese Datei auswerten. Sprich eine Top 20 Liste der Reviews erzeugen.
Also Pro Film zählen, nach Anzahl sortieren und Ausgeben lassen.
Das mit dem Ausgeben, bekomm ich hin, das Auswerten und Sortieren ist da als Tip wichtiger.

Ich danke sconmal für jeden Tip ...

  1. die namen tust du in einen hash.

    my %fime

    while ( FOO ) {
    $filmame = $schleifen_variable_die_die_einzelen_zeilen_der_txt_enthaehlt
    $filme{$filmname}++;
    }

    dann eine nette 'sort' funktion. Und schwupps:

    foreach $filmname ( sort { $filme{ $a } <=> $filme{ $b } keys %filme ) {
     print " Film = $filmname\n";
     print " FileVotes = $filme($filmname}\n";
    }

    Für eigene sortier funktionen aufsteigend,absteigend alphabetisch:
    RTFM. d.h >perldoc perlfunc

    P.S.

    http://www.masonhq.com

    das bringt richtig spass