Foro - Perl en Español

por **sindacore** » 2008-05-01 05:06 @254

Buenas. Pues mire, en el ejercicio que me plantean tengo que leer un fichero de texto y mediante hash hacer que salga por pantalla las palabras alfabéticamente y la frecuencia con la que se repite esa palabra, tengo hecho lo siguiente pero falla por algún sitio

Muchas gracias de antemano

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

while(<>){

@palabras_separadas_por_lineas=split;

foreach$palabras(@palabras_separadas_por_lineas){
if(exists$frec{$palabras}){
$frec{$palabras}++;

}

else{
$frec{$palabras}=1;
}
}
}

foreach$palabras_ordenadas(sort%keys){
print"\n $palabras \t\ $frec{palabras}\n";
}Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En el último foreach, no debes usar la variable %keys, porque nunca la has usado antes. En su lugar, deberías haber escrito keys %frec.

Dentro de ese mismo foreach, estás usando una variable de iteración ($palabras_ordenadas) pero luego, dentro del bucle la cambias por $palabras. Debes usar siempre la misma.

El if te sobra. Todo. Puedes dejarlo reducido a $frec{$palabra}++; .

Foro - Perl en Español

Ejercicio hash

Ejercicio hash

Publicidad

¿Quién está conectado?