Foro - Perl en Español

Buenos días.

Soy nuevo en el mundo de la programación y quería pedir ayuda con la siguiente situación.

Tengo un archivo de entrada del que tengo que seleccionar unas líneas del archivo para guardarlas en otro.

Abro el archivo:

my $file = $ARGV[0];
unless (open(FROM,$file))
{
print STDERR "Cannot open file \"$file\"\n\n";
exit;
}

le digo que lo lea línea a línea y que me guarde el número de líneas y que cuando llegue a las que empiezan por '>' me las guarde, pero no soy capaz:

my $numerodelineas = 0;

while (<FROM>)
{
$numerodelineas++;
if ($numerodelineas =~ />/)
{
open (FILE_1,'>',"salida.txt")
print "$numerodelineas\n";
close (FILE_1)
}
}


Si podéis ayudarme os lo agradecería.

Bienvenido/a a Perl en Español, Tharanys.

El problema está en que la lectura de las líneas la haces a la variable por defecto ($_), pero luego no la usas para hacer la comparación. Mejor usar una variable explícita, y así se ve más claro el funcionamiento:


Fíjate que abrimos y cerramos el archivo resultado una sola vez, antes y después del bucle, no dentro de él. Si lo hiciéramos dentro, estarías sobreescribiendo el contenido anterior cada vez que encontrases una nueva línea.

Una vez entendido cómo se hace esto, Perl te permite escribirlo de forma más abreviada:

La variable $_ (la de por defecto) nos permite realizar operaciones que la van a usar si no se indica ninguna otra variable.

Si estás empezando, mejor usa el primer método, y poco a poco vas pasando al segundo. Pero siempre que en el programa quede claro qué es lo que estás haciendo.

Muchísimas gracias.

Ahora lo entendí y conseguí generar el archivo correcto de salida.

Mil gracias