Ver Tema

agaton · Mié Mar 10, 2010 1:15 pm

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

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

nombre

paco

juan

jose

nombre

luis

rafa

bruno

nombre

... (y así sucesivamente)

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

Un saludo.

explorer · Mié Mar 10, 2010 6:35 pm

Algo así (pero no exactamente) (una de varias soluciones):

* Bucle para todas las filas
* Si la fila es 'nombre', cierras el fichero abierto antes y abres uno nuevo, y salto a la siguiente
* Pinto la fila en el fichero
* Fin del bucle

agaton · Jue Mar 11, 2010 7:52 am

Gracias explorer, no se me había ocurrido ese planteamiento. Dejo el código final por si a alguien le resulta de utilidad en un futuro.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#! /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: $!";

Saludos.

Publicidad

Socializa