Foro - Perl en Español

por **mely01** » 2011-06-17 18:29 @812

Hola, muy buen material, pero el problema que me surgió es que no puedo colocar la información que me interesa en varios archivos.

Es decir, ¿cómo podríamos pasar cada bloque de información delimitada a millones de archivos individuales?

La información que extraigo comienza con '$$$$' y termina con <From>.

Yo así extraigo lo que me interesa pero solo lo imprimo por pantalla o lo puedo pasar a un solo archivo individual en la consola: perl cod.pl archivo.txt >salida

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<>) {
  if (/\$\$\$\$/../\<From\>/) {
    next if /\$\$\$\$/ || /\<From\>/;
    print ;
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

No dices nada de cómo se llaman esos millones de archivos, o si esos millones de archivos ya existen y hay que agregarles la información o, quizás lo más sencillo: sacar la información de entre la basura, y convertirla en el contenido de los millones de archivos.

Esta es una manera (no probada):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use autodie;
 
my $archivo = "archivo_00000001";          # nombre de los archivos a crear
my $contenido;                             # aquí vamos guardando el contenido de cada rango
 
while (<>) {                               # leemos las líneas desde la entrada estándar
    if (/\${4}/ .. /<From>/) {             # si estamos dentro del rango de líneas interesantes...
        if (/<From>/) {                    # si estamos en la última línea de un rango
            open my $FILE, '>', $archivo;  # abrimos el $archivo en modo escritura
            print   $FILE $contenido;      # guardamos el $contenido
            close   $FILE;
 
            $archivo++;                    # cambiamos el nombre del próximo $archivo
 
            $contenido = '';               # reiniciamos a $contenido vacío
 
            next;                          # saltamos a siguiente línea
        }
 
        $contenido .= $_;                  # para todas las demás líneas del rango, las guardamos como $contenido
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Extraer varias líneas delimitadas por dos líneas especiales

Re: Extraer varias líneas delimitadas por dos líneas especiales

Publicidad

Re: Extraer varias líneas delimitadas por dos líneas especiales

Re: Extraer varias líneas delimitadas por dos líneas especiales

Re: Extraer varias líneas delimitadas por dos líneas especiales

¿Quién está conectado?