Cómo usar Perl para leer un archivo, calcular la frecuencia de cada palabra en el archivo y generarlo nuevamente

El hermano de arriba lo criticó. Soy un lego y es la primera vez que respondo preguntas sobre procedimientos. No tengo experiencia, ¡así que perdóneme!

En realidad, hay buenos ejemplos de conteo de palabras en la documentación de Perl. Como novato, también estoy aprendiendo. Espero que todos puedan comunicarse y progresar juntos.

mientras ( /(\b[^\W_\d][\w'-] \b)/g ){ $seen{$1} ;}

La declaración anterior es el método de recuento de palabras de una sola línea que se muestra en el ejemplo.

my @array = split /[\s\,\!\:\;\?\#]/;

Esta es una forma estúpida de usar la puntuación para dividir palabras. Método;

Pero en la práctica, puede dividir de manera flexible palabras con significados especiales.

foreach (@array) { $words{$_} if /^\w/;}

Ver: Documentación: perlfaq6.htm.