Me di a la tarea de empezar a desarrollar mi primer programa, del cual requiero que de un documento (Extracto.txt) me tome todas las líneas que contengan una determinada palabra y las escriba en otro archivo: Datos.txt (esto lo logré), sin embargo, si la palabra buscada posee tilde no la reconoce
Asumiendo que reconociera todas las líneas que necesito aún me faltaría reemplazar algunas de las palabras buscadas por otras... según leí eso se logra mediante: s/lo_que_tengo/lo_que_quiero/g; pero me queda la duda de dónde debo colocar esa línea en el código para que el cambio se aplique en el documento nuevo (Datos.txt).
Adjunto unas líneas del mi código para que se hagan una idea de cómo voy:
Using perl Syntax Highlighting
#!/usr/bin/perl
open (Datos, ">Datos.txt"); #Archivo destino de líneas buscadas.
open (FILE,"Extracto.txt") || die "no se puede abrir el archivo\n"; { #Archivo del que deseo extraer las líneas
while (<FILE>) {
print Datos $_ if /Minería/; #no la reconoce
print Datos $_ if /Botánica/; #no la reconoce
print Datos $_ if /Pesca/; #sí la reconoce
}
}
close (FILE);
open (Datos, ">Datos.txt"); #Archivo destino de líneas buscadas.
open (FILE,"Extracto.txt") || die "no se puede abrir el archivo\n"; { #Archivo del que deseo extraer las líneas
while (<FILE>) {
print Datos $_ if /Minería/; #no la reconoce
print Datos $_ if /Botánica/; #no la reconoce
print Datos $_ if /Pesca/; #sí la reconoce
}
}
close (FILE);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Agradezco cualquier ayuda o sugerencia ya que llevo varios días tratando de solucionar el problema y no he dado con la respuesta adecuada.
¡Saludos!