Foro - Perl en Español

por **Mirvana** » 2011-12-30 17:44 @781

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.

Sintáxis: [ Descargar ] [ Ocultar ]

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);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

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 0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Eliminar línea cada vez que encuentre un signo '?'

Eliminar línea cada vez que encuentre un signo '?'

Publicidad

Re: Eliminar línea cada vez que encuentre un signo '?'

Re: Eliminar línea cada vez que encuentre un signo '?'

¿Quién está conectado?