De momento tengo el siguiente código:
Using perl Syntax Highlighting
foreach my $nombre_fichero ( <C:\\MI_DIRECTORIO\\*.txt> ){
open(TEXTO, $nombre_fichero);
@lineas=<TEXTO>;
close(TEXTO);
print @lineas;
while($cluster=<DATA>){
chomp($cluster);
$numero_de_veces=()=@lineas=~/$cluster/misg;
print "$cluster: $nombre_fichero: $numero_de_veces\n";
}
}
#LISTADO DE CLUSTERS
__DATA__
IN ORDER TO
THE EFFECT OF
THE NUMBER OF
DUE TO THE
THE END OF
...
open(TEXTO, $nombre_fichero);
@lineas=<TEXTO>;
close(TEXTO);
print @lineas;
while($cluster=<DATA>){
chomp($cluster);
$numero_de_veces=()=@lineas=~/$cluster/misg;
print "$cluster: $nombre_fichero: $numero_de_veces\n";
}
}
#LISTADO DE CLUSTERS
__DATA__
IN ORDER TO
THE EFFECT OF
THE NUMBER OF
DUE TO THE
THE END OF
...
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Pero tan sólo me buscar los clusters para el primero de los ficheros y no encuentra ninguna ocurrencia a pesar de que si que existen. ¿Qué estoy haciendo mal?
Por cierto, en otro hilo pregunto cómo puedo dividir un fichero de texto en 5 secciones diferentes (número total de palabras/5).
Saludo y gracias!