#!/usr/bin/perl -w

# calcola la frequenza delle parole in una lista di parole
# lette da un file

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

print "Leggo le stringhe da file\n";

open(LISTAPAROLE, "listaparole.dat") ||
    die "Impossibile aprire il file listparole.dat.\n";
    #warn "Impossibile aprire il file listparole.dat.\n";

while ($parola = <LISTAPAROLE>) {
    chomp($parola);
    $parole{$parola} += 1;
}

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

@a = keys(%parole);
print "Lunghezza dell'hash keys: ".keys(%parole)."\n";
print "@a\n";
@a = values(%parole);
print "Lunghezza dell'hash values: ".values(%parole)."\n";
print "@a\n";