Foro - Perl en Español

por **agaton** » 2010-03-10 13:15 @594

Hola, mi problema es bastante sencillo pero hasta el momento no he conseguido resolverlo. Supongamos que tengo un archivo de texto que contiene:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

nombre

paco

juan

jose

nombre

luis

rafa

bruno

nombreColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

... (y así sucesivamente)

¿Cómo puedo hacer para dividirlo en archivos que contengan desde una línea "nombre" hasta la siguiente?

Un saludo.

#! /usr/bin/perl -w
 
print "¿Nombre del archivo?";
$molin = <STDIN>;
chomp $molin;
 
open(MOLIN,"$molin") || die "No pude abrir $molin: $!";
 
$idmol = 1;
open(MOLOUT,">$idmol.mol2");
        $line = <MOLIN>;
        chomp $line;
        print MOLOUT "$line\n";
 
while($line = <MOLIN>) {
 
        chomp $line;
 
        if ($line =~ /^@<TRIPOS>MOLECULE/) {
 
          close(MOLOUT);
          $idmol = $idmol + 1;
          open(MOLOUT,">$idmol.mol2");
          print MOLOUT "$line\n";
 
 
        } else {
            print MOLOUT "$line\n";
        }
}
 
close(MOLIN) || die "No puedo cerrar $molin: $!";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Dividir un archivo de texto en varios

Dividir un archivo de texto en varios

Publicidad

Re: Dividir un archivo de texto en varios

Re: Dividir un archivo de texto en varios

¿Quién está conectado?