#!/usr/bin/perl -w

# Calcola la frequenza delle parole in un file
# senza tenere conto della punteggiatura e 
# dei maiuscoli/minuscoli

use strict;
my($linea, @string, %parole, $parola);


print "Leggo il testo da file\n";
open(IN, "file.txt");


while ($linea = <IN>) {
    @string = split(/\s+/,$linea);
    foreach $parola (@string) {
        $parola =~ s/\W//g;
        $parola =~ tr/A-Z/a-z/;
        $parole{$parola} += 1;
    }
}

foreach $parola (keys (%parole)) {
    print "- ".$parola.": ".$parole{$parola}."\n";
}