Foro - Perl en Español

por **seguridadenmimail** » 2011-09-01 19:12 @842

Los molesto porque quiero usar split() en un archivo que contiene información separara por comas.

Archivo.txt

Sintáxis: [ Descargar ] [ Ocultar ]

pais,argentina,capital federal,prueba
pais2,argentina,buenos aires,prueba2

Mi idea es guardar la información en diferentes array, digamos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

array1: pais

        pais2

array2: argentina

        argentina

array3: capital federal

        buenos aires

array4: prueba

        prueba2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Para luego mostrar algo así mediante el uso de algún bucle (for/while/foreach).

print array1(valor1) array2(valor1) array3(valor1) arrray4(valor1)
print array1(valor2) array2(valor2) array3(valor2) arrray4(valor2)

Espero que se entienda. Vi que usando split() puedo separar pero me guarda todo en un solo array.

Saludos.

my $archivo = "pais,argentina,capital federal,prueba\npais2,argentina,buenos aires,prueba2";
                   
my(@array1, @array2, @array3, @array4);
                   
for my $linea ( split /\n/, $archivo) {
                   
    my @campos = split /[,]/, $linea;
                   
    push @array1, $campos[0];
    push @array2, $campos[1];
    push @array3, $campos[2];
    push @array4, $campos[3];                                                                                                                 
}                  
                   
use Data::Dumper;
                   
print Dumper \@array1;
print Dumper \@array2;
print Dumper \@array3;
print Dumper \@array4;
                   
__END__
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Y esta es la solución corta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl                  
my $archivo = "pais,argentina,capital federal,prueba\npais2,argentina,buenos aires,prueba2";
                                  
my @cubo;                       # Aquí guardaremos la estructura bidimensional
 
for ( split /\n/, $archivo ) {
    push @cubo, [ split /[,]/, $_ ];
}
 
use Data::Dumper;
print Dumper \@cubo;
              
for my $linea (@cubo) {
    print join('-', @{$linea}), "\n";
}
__END__
$VAR1 = [
          [
            'pais',
            'argentina',
            'capital federal',
            'prueba'
          ],
          [
            'pais2',
            'argentina',
            'buenos aires',
            'prueba2'
          ]
        ];
pais-argentina-capital federal-prueba
pais2-argentina-buenos aires-prueba2
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Construimos un cubo (mejor dicho, una matriz de dos dimensiones), en que las líneas de la primera dimensión son las distintas líneas del fichero. En cada una de ellas, hay un array que guarda los distintos valores.

Lo hacemos así, porque luego facilita la salida, con un simple join().

Para acceder al tercer elemento de la segunda línea, escribimos: print $cubo[1][2];.

por **seguridadenmimail** » 2011-09-01 20:26 @893

Gracias.
Como hago para que me imprima los valores seguidos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/bin/perl
my(@array1, @array2, @array3, @array4);
open  $ARCHIVO, '<', $ARGV[0] or die $!;
@ARCHIVOS = <$ARCHIVO>;
for $VALOR(@ARCHIVOS){
   my @campos = split /\,/, $VALOR;
    push @array1, $campos[0];
    push @array2, $campos[1];
    push @array3, $campos[2];
    push @array4, $campos[3];
}
print "@array1 @array2 @array3 @array4\n";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

salida:

Sintáxis: [ Descargar ] [ Ocultar ]

pais pais2 argentina argentina capital federal buenos aires prueba
prueba2

Yo quiero:

Sintáxis: [ Descargar ] [ Ocultar ]

pais argentina capital federal prueba
pais argentina buenos aires prueba2

por **explorer** » 2011-09-02 04:12 @216

Tu mismo lo escribiste en el primer mensaje... Fíjate bien...

por **seguridadenmimail** » 2011-09-02 06:56 @330

El problema es que no sé la cantidad de líneas, digamos que voy a tener array[x].

Por eso solicitaba ayuda.

Saludos.

por **explorer** » 2011-09-02 07:00 @333

Pues si no sabemos cuántas líneas son, se hace un bucle...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $i (0 .. $#array1) {
    print "$array1[$i] $array2[$i] $array3[$i] $array4[$i] \n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y por eso, la solución del cubo (matriz), es más cómoda.

por **seguridadenmimail** » 2011-09-02 07:02 @334

¡Perfecto!
Muchas Gracias =)

Foro - Perl en Español

Consulta sobre split

Consulta sobre split

Publicidad

Re: Consulta sobre split

Re: Consulta sobre split

Re: Consulta sobre split

Re: Consulta sobre split

Re: Consulta sobre split

Re: Consulta sobre split

¿Quién está conectado?