Me han mandado una práctica que consiste en lo siguiente:
- Tengo un primer archivo con palabras que debo eliminar. Ejemplo: desde, con, un, una, luego, entonces, para, así, etcétera.
- Tengo un segundo archivo en el cual debo eliminar todas las palabras anteriores. Ejemplo: "con dinero compro una casa" ---> "dinero compro casa"
¿Creéis que voy por buen camino? ¿Alguna sugerencia?
El código que he escrito no me sustituye cada palabra por un "blanco" o la elimina, sino que al final de la frase me escribe el "blanco", el retorno de carro, o lo que yo quiera...
¡Muchas gracias de nuevo y perdonad por las molestias!
Using perl Syntax Highlighting
#!/usr/bin/perl
open (F,'texto_prueba.txt');
open (F2,'palabras_a_segmentar.txt');
open (F3,'>pruebasalidatp3.txt');
while( $linea_segmentar =<F2>){
#en $linea voy a tener la primera linea del texto,luego la 2,la 3...
#es lo primero que debo leer para saber si esta contenida en el texto de prueba
while( $linea_texto =<F>){
$linea_texto =~ s/[$linea_segmentar]/\n/g;
print F3 $linea_texto if $linea_texto;
}
}
close (F);
close (F2);
close (F3);
open (F,'texto_prueba.txt');
open (F2,'palabras_a_segmentar.txt');
open (F3,'>pruebasalidatp3.txt');
while( $linea_segmentar =<F2>){
#en $linea voy a tener la primera linea del texto,luego la 2,la 3...
#es lo primero que debo leer para saber si esta contenida en el texto de prueba
while( $linea_texto =<F>){
$linea_texto =~ s/[$linea_segmentar]/\n/g;
print F3 $linea_texto if $linea_texto;
}
}
close (F);
close (F2);
close (F3);
Coloreado en 0.007 segundos, usando GeSHi 1.0.8.4
