Foro - Perl en Español

por **Maku79** » 2018-03-22 07:05 @336

¡Buenas!

Encantada de formar parte de este nuevo mundo que es para mi el lenguaje Perl. Llevo varios días leyendo y revisando en el foro por si encontraba la solución a mi problema, pero al final no es el resultado que quiero así que voy a explicarme lo mejor posible.

Tengo un fichero .txt bastante extenso (unas 100 000 líneas) con la estructura "código de números, nombre con letras", es decir:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Codigo_Numeros_longitud_variable1,Nombres_longitud_variable1

Codigo_Numeros_longitud_variable2,Nombres_longitud_variable2

Codigo_Numeros_longitud_variable3,Nombres_longitud_variable3

Codigo_Numeros_longitud_variable3,Nombres_longitud_variable4

.....Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Necesito crear otro fichero .txt de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Codigo_Numeros_longitud_variable1,Nombres_longitud_variable1,Codigo_Numeros_longitud_variable2,Nombres_longitud_variable2

Codigo_Numeros_longitud_variable3,Nombres_longitud_variable3,Codigo_Numeros_longitud_variable3,Nombres_longitud_variable4

.....Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Me refiero a que cada dos líneas del primer fichero se forme una sola línea separada por comas en el fichero de salida.

No sé si me he explicado bien...

He probado infinidad de opciones y todas, o me salen las comas donde no tocan o me lo pone todo en una sola línea o me lo separa en letras o simplemente me lo muestra tal cual el fichero de entrada... Me estoy volviendo loca :shock:

Pongo un par de ejemplos de lo que he probado y que no funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use autodie;
use warnings;
 
open my $fichero, '<prueba.txt' or die "ERROR: No puedo leer el fichero: $!\n";
open my $OTRO, ">otro.txt" or die "ERROR: No encuentro el fichero: $!\n";
 
while (my $linea = <$fichero>) {
        chomp $linea;
        push @array, $linea;
        print $OTRO "$array[0]$array[1],$array[2]$array[3]\n";
}
 
close $fichero;
close $OTRO;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Otro ejemplo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use autodie;
use warnings;
 
open FICHERO, "<prueba.txt" or die "ERROR: No encuentro el fichero prueba.txt\n";
open my $OTRO, ">otro.txt" or die "ERROR: No encuentro el fichero otro.txt\n";
@lineas = <FICHERO>        or die "ERROR: No puedo leer el fichero\n";
close FICHERO              or die "ERROR: No puedo cerrar el fichero\n";
 
foreach ( @lineas ) {
        push @rray, [ split // ];
}
 
my $contador = 0;
for ( $j = 0; $j < @rray; $j++ ) {
        
    for ( $i = 0; $i < @{$rray[$j]}; $i++ ) {
        #print $OTRO $rray[$j][$i];
                print $rray[$j][$i];
                #print ",\n";
    }
}
close $OTRO;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No sé, creo que estoy cerca de la solución, pero debo estar haciendo algo mal y no lo veo.

He abierto el hilo porque llevo toda la semana dándole vueltas. Si alguien me pudiera echar una mano estaría muy agradecida

Gracias de antemano.

#!/usr/bin/env perl
use v5.10.1;
use strict;
use warnings;
 
my $anterior = "";
 
open my $FH, '<', 'prueba.txt';
open my $OH, '>', 'otro.txt';
 
while (<$FH>) {
    chomp;
 
    if ($. % 2 == 0) {                  # si el número de la línea leída es par...
 
        sat $OH "$anterior,$_";         # sacamos la $anterior y la actual
 
        $anterior = "";
    }
    else {
        $anterior = $_;                 # sino, la recordamos
    }
}
 
say $OH $anterior  if $anterior;        # sacamos la última línea, si queda algo que mostrar
 
close $FH;
close $OH;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La variable $. lleva la cuenta de líneas leídas, comenzando en 1.

Más información, en tu propio ordenador con el comando perldoc perlvar, y en la Web (y en español).

por **Maku79** » 2018-03-22 09:34 @440

Madre mía, qué tonta... :oops:

No se me había ocurrido lo de si el número de líneas es par, vaya tela... ¡qué bloqueo más tonto! :oops:

Me ha funcionado a la perfección, ¡¡millones de gracias!!

Otra pregunta que me surge, ¿por qué no cierras los ficheros? ¿Podría provocar problemas?

¡¡Gracias de nuevo!!

por **explorer** » 2018-03-22 10:16 @469

De tonta, nada. Es una técnica más, que ahora ya conoces.

Pero es un problema que se puede resolver de muchas maneras.

Por ejemplo, la solución con un array:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use autodie;
 
# Leemos el archivo    
open my $ARCHIVO, '<', 'code_40678.txt';
my @array = <$ARCHIVO>;
close $ARCHIVO;
 
chomp @array;
 
open my $OTRO, '>', 'otro.txt';
for (my $i = 0; $i < @array; $i+=2) {
    say $OTRO "$array[$i],$array[$i+1]";
}
close $OTRO;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El truco está en el bucle for, que va saltando $i de dos de dos. Pero hay un problema si el número de líneas no es par: la última línea saldrá con una coma suelta. Bueno, es fácil de solventar.

En cuanto a la falta de close()... bueno, sí, hay que ponerlos, pero en este caso, como el programa termina ahí, pues de eso ya se encarga Perl, de cerrar todos los archivos que queden abiertos. Pero sí, lo normal es ponerlo para mostrar que ahí termina el proceso. Ya edité el mi mensaje y lo he puesto.

por **Maku79** » 2018-03-23 02:25 @142

¡¡Muchas gracias, explorer!!

La verdad es que es alucinante lo que se puede hacer con Perl. Yo acabo de empezar con él pero me doy cuenta de lo potente que es y la de cantidad de formas diferentes que hay para hacer las cosas.

¡¡Gracias, de verdad!! Tanto por las explicaciones como por los enlaces de Perl, que sin duda consultaré

Foro - Perl en Español

Meter dos lineas en una

Meter dos lineas en una

Publicidad

Re: Meter dos lineas en una

Re: Meter dos lineas en una

Re: Meter dos lineas en una

Re: Meter dos lineas en una

¿Quién está conectado?