Foro - Perl en Español

¿Me podrían decir qué me falta o sobra en este programa? Porque no se ejecuta... Además el archivo le tengo en la misma carpeta que el que contiene el código y no sé si lo encontrará o tengo que especificar dónde está el archivo que quiero abrir... En ese caso, ¿cómo se haría?

Muchas gracias.

my ($file1, $file2, $line);
my $file1 = "TEXTO1.txt";
my $file2 = "pruebafin.txt";


open (SOURCE, $file1) or die "cannot open file \"$file1\": $!";
open (RESULT, ">$file2") or die "cannot open file \"$file2\": $!";

while ($line = <SOURCE>)
{
if ($line =~ /BASURA/)
{
$file2 -= $line;
print RESULT "$file2";
}
else {
print RESULT "$line";
}
}


close (SOURCE);
close (RESULT);

Si Perl no encuentra el archivo, te lo dirá con un sonoro mensaje, porque así se lo has pedido, con los die().

Tienes declarados dos veces las variables $file1 y $file2.

$file2 -= $line; es un error garrafal: El operador '-=' es para operandos matemáticos, y $file2 y $line son cadenas de caracteres.

Sigo sin saber muy bien cuál es tu intención al escribir el programa: Parece que quieres que cuando exista una línea con la palabra BASURA la sustituya por el nombre del archivo en el archivo de salida (¿para qué?). Acabarías con un archivo en el que cambiarías un tipo de basura por otra. No necesitas hacer eso si lo que quieres es ignorarla, puede que esto se acerque a lo que quieres.