Foro - Perl en Español

El profesor dice que hay que editarlo "manualmente", así que no hay que hacer ningún programa para extraer lo que queremos. Solo hay que abrir el archivo con algún editor que entienda RTF (por ejemplo, el paquete libreoffice puede hacerlo), y desde allí lo grabas como archivo de texto plano.

Y ya solo queda hacer el programa para que extraiga las líneas BASURA...

¡¡Problema resuelto!! Simplemente trasladé el contenido del rtf a un documento de texto plano, y lo demás con su ayuda conseguí sacarlo.

¡¡Muchas gracias!!, pronto seguiré intentando solucionar mis nuevas dudas

Yo aun no lo he resuelto, ¡je,je!

Tengo esto (después de quitar el "\n" de cada variable):

my ($b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9);
my $origen = "texto1.txt";
my $resultado = "resultado.txt";
open (FILEHANDLE, $origen) || die "No se pudo abrir el archivo \"$infile\": $!";
open (FILEHANDLE2, ">$resultado") || die "No se pudo abrir el archivo \"$infile\": $!";
$b1=<FILEHANDLE>;
if ($b1 =~ /BASURA/) { # Si la línea correspondiente a b1 contiene basura
$resultado -= $b1;} # Al archivo le elimino la línea
else {print "$b1" and $resultado += $b1}; # Si no, imprimo la línea en la línea de comandos
# Y la añado al archivo resultado.
$b2=<FILEHANDLE>;
if ($b2 =~ /BASURA/) {
$resultado -= $b2;}
else {print "$b2" and $resultado += $b2};
$b3=<FILEHANDLE>;
print "$b3";
$b4=<FILEHANDLE>;
print "$b4";
$b5=<FILEHANDLE>;
print "$b5";
$b6=<FILEHANDLE>;
print "$b6";
$b7=<FILEHANDLE>;
print "$b7";
$b8=<FILEHANDLE>;
print "$b8";
$b9=<FILEHANDLE>;
print "$b9";
close (FILEHANDLE);

Sin embargo el programa me crea el archivo resultado, me imprime la línea 1 y no la 2, pero no escribe la línea 1 en el archivo resultado. ¿A qué se debe?

Te vuelvo a decir que el operador '-=' es numérico. Lo mismo para '+='

No tiene sentido para operandos que son cadenas de caracteres...

Piénsalo de esta manera: si la línea contiene BASURA... no es necesario imprimirla...

Ya casi que lo tengo pero sigo con un pequeño error:

my ($b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9);
my $origen = "texto1.txt";
my $resultado = "resultado.txt";
open (FILEHANDLE, $origen) || die "No se pudo abrir el archivo \"$infile\": $!";
open (FILEHANDLE2, ">$resultado") || die "No se pudo abrir el archivo \"$infile\": $!";
$b1=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b1"};
$b2=<FILEHANDLE>;
if ($b2 =~ /BASURA/) {
$resultado -= $b2;}
else {print "$b2" and print FILEHANDLE2 "$b2"};
$b3=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b3"};
$b4=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b4"};
$b5=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b5"};
$b6=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b6"};
$b7=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b7"};
$b8=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b8"};
$b9=<FILEHANDLE>;
if ($b1 =~ /BASURA/) {
$resultado -= $b1;}
else {print "$b1" and print FILEHANDLE2 "$b9"};
close (FILEHANDLE);
close (FILEHANDLE2);

El error es que siempre me imprime la misma linea en pantalla y en resultado solo me elimina la primera linea con basura, el resto aparece

Problema solucionado. Era cuestión de los números. Al copiar y pegar me olvidé de cambiar el número de las variables. Ya me funciona el programa. Muchas gracias por la ayuda, de nuevo.

¿Te diste cuenta de que te sobraban todas las líneas de la forma

$resultado -= ...

?

Pues la verdad que no las he quitado. Al final lo volvi a cambiar para hacerlo mas eficiente y presenté esto:

¡Claro!

Repasa las líneas 7 y siguientes:

• Si $b1 contiene BASURA...
• hacemos algo MUY raro (de hecho, no hacemos nada)
• si no,
• sacamos la línea a pantalla y al archivo de salida.

Como ves, esa operación '-=' no sirve para nada, porque lo que quieres es sacar las líneas que no contienen BASURA.

Esta es mi versión:

O sea, que lo que yo he hecho ha sido decirle que si tiene basura, "no hagas nada", ¿no?