Foro - Perl en Español

Necesito saber como puedo reconocer una serie de palabras separadas por punto y coma y que al final muestre cuantas veces esta cada palabra en el texto (archivo). La cantidad de palabras que ingreso no se sabe.


Gracias

Suponemos que el archivo se llama fichero.txt.

Código: Seleccionar todo

open $fh, "<fichero.txt";
while ( $linea = <$fh> )
{
    # Primero separas las palabras y lo metes todo a un vector
    @palabras = split ";", $linea;

    # Luego, haces un bucle por todo el vector,
    # apuntando en una memoria cada palabra
    # que encuentres y le sumas uno
    foreach my $palabra ( @palabras )
    {
        # %palabras guardará como claves las palabras
        # encontradas, y sus valores serán las veces que
        # han aparecido en el archivo
        $palabras{$palabra} = $palabras{$palabra} + 1;
    }
}
close $fh;

# Finalmente, sacas el listado de las palabras encontradas,
# ordenadas alfabéticamente
# y el número de veces que aparece
foreach my $palabra ( sort keys %palabras )
{
    print $palabra, "\t", $palabras{$palabra}, "\n";
}

Muchas gracias, me sirvio a la perfeccion.