print "digues el nom del fitxer del qual vols calcular la frequencia de mots:  ";

$fitxer = <STDIN>;

open F, "$fitxer";

while ( <F> ) {
    chomp;
    $linia = $_;
    @linia = split " ", $linia;
    foreach $m (@linia) {
	$ocurrencies{$m}++;
    }
}

close F;

foreach $m ( keys %ocurrencies ) {
    print "el mot $m ocorre $ocurrencies{$m} vegades\n";
}

# que passa amb els signes de puntuacio?
# intenteu resoldre-ho amb la funcio s///g;
