Hola.
Tengo una duda: ¿cómo puedo hacer para que cada vez que encuentre una línea que contenga el signo '?', la elimine y guarde las demás líneas en un nuevo archivo?
El código que tengo lo hace dándole el número de registro en donde está el signo.
Pero quiero que lo elimine sin darle yo el registro.
Using perl Syntax Highlighting
#!/usr/bin/perl
#
use warnings;
use POSIX;
#$archivo=$ARGV[0];
$archivo="ARCHIVOS.txt";
open my $Fichero, q[<], $archivo; # abrimos el archivo
open(SALIDA,"+> nuevoarchivo.txt") || die "ERROR: No se puede crear el archivo\n";
while(<$Fichero>)
{
if($. == 619){
next;
}
print SALIDA;
}
close $Fichero;
close(SALIDA);
Using text Syntax Highlighting
SNP1 RSID1 113641 C T 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0
SNP2 RSID2 323535 T C 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 0 0 0 0 0 0 1 0 1 0 1 0 1 0 1 0 1 0 0
SNP3 RSID3 369242 T C 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0
SNP4 RSID4 369418 C A 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0
SNP5 RSID5 482656 ? ? 0 0 0 1 1 0 0 0 1 0 0 0 1 1 1 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0
SNP6 RSID6 487590 A G 1 0 0 0 0 1 0 1 0 1 1 1 0 0 0 1 0 0 1 0 0 1 0 0 0 1 1 1 0 1 1 1 0 0 0 1 0 1 1 1 0 1 0 1 0 1 1 1 0 1
SNP7 RSID7 620748 G A 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0
SNP8 RSID8 620968 G A 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0
SNP9 RSID9 1170767 C T 1 0 0 1 0 0 0 0 1 0 1 0 0 1 1 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 0 0 0 0 0 0 1 0 0
2011-12-30 17:44 @781
