Foro - Perl en Español

[zest]

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

[explorer39]

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";
}

[zest]

Muchas gracias, me sirvio a la perfeccion.