Guardar una línea de un archivo de entrada en otro de salida
Publicado: 2019-09-30 06:12 @300
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.
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.