Foro - Perl en Español

por **sisifo80** » 2015-10-24 03:58 @207

Hola.

Tengo una entrada con el siguiente formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

texto

texto

...

(ID 3467)

texto

texto

...

(ID 3467)

texto

texto

...

(ID 5993)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es decir: Tengo un conjunto variable de líneas de texto cuya última línea es un código entre paréntesis, y después otro conjunto variable de líneas de texto cuya última línea es un código -y aquí viene mi complicación- que puede ser o no el mismo código que el anterior, y así sucesivamente...

Necesito un script que lea ese archivo y cree tantas carpetas como códigos diferentes existan (el nombre de cada carpeta será el propio código), y que dentro de cada carpeta cree un archivo (el nombre del archivo será también el propio código) en cuyo contenido se imprima la parte de texto de la entrada que corresponda a ese código.

Por ejemplo, siguiendo con el ejemplo anterior, debería obtener lo siguiente:

a) una carpeta llamada "3467" que contenga un archivo llamado "3467" cuyo contenido sea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

texto

texto

...

ID 3467

texto

texto

...

ID 3467Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

b) una carpeta llamada "5993" que contenga un archivo llamado "5993" cuyo contenido sea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

texto

texto

...

ID 5993Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y así, sucesivamente.

Pues bien, yo llego hasta aquí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$filename = shift;
open F, $filename or die;
undef $/;
$file = <F>;
close F;
 
@s = split /\(ID .*?\K\n/, $file;              # divido la entrada en partes siempre que encuentre la secuencia ID + cualquier cosa + cambio de línea
 
foreach $s (@s) {
 
    if ( $s =~ m/\ID (.*?)\)/ ) {              # capturo el código en una variable
        $code = $1;
    }
 
    mkdir "$code";                             # creo carpeta con el código
                                               # creo archivo con el código
    open FILE, '>', "$code/$code\.txt" || die "can't open file output/$code";
    print FILE "$s";
    close FILE;
 
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Como veis, solo sé dividir la entrada en partes siendo cada parte un conjunto del tipo "texto, texto, text, ID código". Pero lo que quisiera, y no sé cómo, es que mi array tuviese en cuenta que si el código es igual al anterior no aplique la función split(), para dividir así el texto en las partes que realmente necesito.

No sé si me he explicado muy bien...

Hola, explorer. Gracias por tu respuesta.

El problema es que la línea en blanco no es sistemática: podría aparecer o no. Lo único sistemático es la línea con el código después de cada conjunto de texto. Por otro lado, y suponiendo que la línea en blanco sí fuese sistemática, no entiendo cómo podría eso resolver mi problema, pues seguiría obteniendo divisiones inferiores a lo que yo necesito (a veces necesitaría que varias líneas en blanco se capturasen en la misma subdivisión y a veces no, puesto que el código que sigue a cada conjunto de texto a veces es igual al anterior y a veces no).

por **explorer** » 2015-10-25 10:02 @459

Esta es una posible solución, aunque no acabo de entender el porqué hay que crear un subdirectorio con el nombre del ID, ya que solo con crear el archivo de basado en el ID, vale.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.18;
use autodie;
use File::Slurp;
 
my $archivo = read_file('code_39015.txt');
 
my %ids;                                        # base de datos
 
while ($archivo =~ /\G\s*(?<texto>.+?)\s*\(ID (?<id>\d+)\)/msg) {
 
    my($texto, $id) = @+{qw'texto id'};
 
    push @{ $ids{ $id } }, $texto;
}
 
for my $id (keys %ids) {
 
    mkdir $id;
    
    write_file("$id/$id.txt", join("\n" => @{ $ids{$id} }) . "\nID $id\n");
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que hacemos es ir guardando en un hash de array todas las partes que siguen el patrón buscado.

Luego, solo queda recuperar los ID y generar la salida.

por **sisifo80** » 2015-10-27 02:44 @156

Muchas gracias, explorer.

Foro - Perl en Español

Aplicar split en array con ciertas condiciones

Aplicar split en array con ciertas condiciones

Publicidad

Re: Aplicar split en array con ciertas condiciones

Re: Aplicar split en array con ciertas condiciones

Re: Aplicar split en array con ciertas condiciones

Re: Aplicar split en array con ciertas condiciones

¿Quién está conectado?