Primero de todo, enhorabuena a todos los que hacéis posible este foro.
Mi problema es que llevo varios días intentando resolver un programa y no soy capaz.
El enunciado es el siguiente:
Desarrollar un programa que abra el archivo prueba.txt (es un archivo que posee cadenas de nucleótidos y entre medias la palabra "BASURA") y cree uno nuevo de nombre pruebafin.txt, de tal forma que haga desaparecer todas las líneas que comiencen por “BASURA” y visualice el contenido por pantalla al mismo tiempo.
Mis planteamientos han sido dos:
Planteamiento 1 :
Using perl Syntax Highlighting
- use warnings;
- use strict;
- rename ( 'prueba.txt' , 'pruebafin.txt');
- my $pruebafin = "pruebafin.txt";
- open (PRUEBAFIN, ">pruebafin.txt")||die "ERROR: No puedo abrir el fichero $pruebafin\n";
- if ( $pruebafin =~ /[basura]/ ) {
- $pruebafin =~ s/basura/pruebafin.txt/g;
- print("$pruebafin\n");
- }
- close ( PRUEBAFIN ) or die("Cannot close: $!");
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Planteamiento 2 :
Using perl Syntax Highlighting
- my $prueba = "prueba.txt";
- open (PRUEBA, ">prueba.txt")||die "ERROR: No puedo abrir el fichero $prueba\n";
- $prueba =~ s/BASURA/prueba.txt/g;
- close ( PRUEBA ) or die("Cannot close: $!");
- #rename ( 'prueba.txt' , 'pruebafin.txt');
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Lo único que obtengo es un nuevo archivo de texto renombrado que no posee ningún carácter...
Muchas gracias y espero haber posteado en el foro correcto.
