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
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";
}
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados