indietro

Per fare questo, dovete analizzare sintatticamente ogni parola nel flusso di input. Faremo finta che per parola intendiate un gruppo di caratteri alfabetici, trattini o apostrofi, piuttosto che l'idea di parola senza spazi, data nel quesito precedente:

    while (<>) {
        while ( /(\b[^\W_\d][\w'-]+\b)/g ) {   # non prende "`pecora'"
            $visti{$1}++;
        }
    }
    while ( ($parola, $conta) = each %visti ) {
        print "$conta $parola\n";
    }

Se volete fare la stessa cosa per le linee, non dovreste aver bisogno di un'espressione regolare:

    while (<>) {
        $visti{$_}++;
    }
    while ( ($linea, $conta) = each %visti ) {
        print "$conta $linea";
    }

Se volete che l'output sia ordinato, consultate perlfaq4: "Come si ordina un hash (opzionalmente per valore invece che per chiave)?"

vedi in inglese