Foro - Perl en Español

por **elistraus** » 2012-04-12 16:34 @731

Saludos a la comunidad, me he calentado bastante ya en este ejercicio.

Tengo un array recibido desde una base de datos de esta manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

luis|22|musica|70

luis|22|musica|80

luis|22|musica|90

raul|30|videos|accion

raul|30|videos|terror

juan|27|juegos|COD

juan|27|juegos|MOD

...Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y ésta puede tener más datos similares.

El asunto es que quiero generar un array por cada tercer elemento que sea igual. Por ejemplo, un array para los de música, videos, juegos, etc. y no lo he podido lograr.

Esto he hecho hasta el momento:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        while (my @row = $sql->fetchrow_array()){
                $resultado[$i]= $row[0].'|'.$row[1].'|'.$row[2].'|'.$row[3].'|'.$row[4].'|'.$row[5]."\n";
                $i++
        }
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Así obtengo los datos y después...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        @resultado2 = @resultado;
        for ($i=0;$i<scalar(@resultado2);$i++){
                my @r_1 = split(m/\|/i,$resultado2[$i]);
                $x = $r_1[3];
                for ($i=0;$i<scalar(@resultado2);$i++){
                        my @r_1 = split(m/\|/i,$resultado2[$i]);
                        $y = $r_1[3];
                        if ($y eq $x){
                             #aquí quiero generar los array   
                        }
                }
                shift(@resultado2); # le saca los elementos para hacer la siguiente iteración
                print scalar(@resultado2)."\n";
        }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He leído bastante, pero la verdad, al ser nuevo en Perl, me confundo...

A ver si alguien me puede orientar
¡¡¡Saludos!!!

        while (my @row = $sql->fetchrow_array()){
            push @resultado, \@row;              # guardamos un elemento más en @resultado, que es una referencia
                                                 # a un array con los valores de la fila
        }                                        # @resultado es un array de array
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y para crear la estructura que pides, es mejor usar un hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
my @resultado = (                                # Imitamos la estructura devuelta antes
    [ qw<luis 22 musica 70>     ],
    [ qw<luis 22 musica 80>     ],
    [ qw<luis 22 musica 90>     ],
    [ qw<raul 30 videos accion> ],
    [ qw<raul 30 videos terror> ],
    [ qw<juan 27 juegos COD>    ],
    [ qw<juan 27 juegos MOD>    ],
);
 
my %hash;                        # las claves del hash serán las terceras columnas de @resultado
 
for my $fila (@resultado) {      # para cada $fila de @resultado
    my @row = @{$fila};          # sacamos todos los elementos de la $fila
 
    push @{ $hash{ $row[2] } }, [ @row[0,1,3] ];    # Según el valor de la tercera columna,
                                                    # guardamos la primera, segunda y cuarta, como un array, 
                                                    # como un elemento más del array referenciado por %hash
}
 
use Data::Dumper::Perltidy;
print Dumper %hash;                                 # Vamos a ver qué aspecto tiene la estructura de datos
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El resultado será:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

    'videos' => [ [ 'raul', '30', 'accion' ], [ 'raul', '30', 'terror' ] ],

    'musica' => [ [ 'luis', '22', '70' ],     [ 'luis', '22', '80' ], [ 'luis', '22', '90' ] ],

    'juegos' => [ [ 'juan', '27', 'COD' ],    [ 'juan', '27', 'MOD' ] ]

};Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y ahora ya puedes acceder a toda la información. Por ejemplo, para ver los juegos de Juan:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $juegos ( @{ $hash{juegos} } ) {
    if($juegos->[0] eq 'juan') {
        print "Juan juega a ", $juegos->[2], "\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Juan juega a COD

Juan juega a MODColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Más información en tu propio ordenador en perldoc perlref, y en la Web (traducido).

por **elistraus** » 2012-04-13 09:25 @434

Gracias por responder explorer, pero sigo sin conseguirlo, he intentado hacer lo que me recomendaste pero al hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while ( my @row = $sql->fetchrow_array() ) {
    push @resultado, \@row;            # guardamos un elemento más en @resultado, que es una referencia
                                       # a un array con los valores de la fila
}                                      # @resultado es un array de array
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y hacer un print @resultado me salen resultados así

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ARRAY(0xd54e2d0)ARRAY(0xd69d930)ARRAY(0xd69d9b0)ARRAY(0xd69da30)ARRAY(0xd69dab0)ARRAY(0xd69db30)ARRAY(0xd69dbb0)ARRAY(0xd69dc30)ARRAY(0xd69dcb0)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y no me muestra los valores, sola las referencias y no sé cómo visualizarlas...

En la parte

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @resultado = (                                # Imitamos la estructura devuelta antes
    [ qw<luis 22 musica 70>     ],
    [ qw<luis 22 musica 80>     ],
    [ qw<luis 22 musica 90>     ],
    [ qw<raul 30 videos accion> ],
    [ qw<raul 30 videos terror> ],
    [ qw<juan 27 juegos COD>    ],
    [ qw<juan 27 juegos MOD>    ],
);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

me gustaría saber cómo hacerlo dinámico, no seteado, que el resultado de la consulta vaya ahí y como no logro hacer esto no he podido probar lo otro. A ver si me puedes decir qué hago mal que estoy seguro que es algo que no estoy entendiendo que me sale mal...

Otra cosa: Mi compilación de Perl no tiene el módulo Data::Dumper::Perltidy, para mostrar un resultado hash de esa manera...

Saludos

por **explorer** » 2012-04-13 12:31 @563

elistraus escribiste:y hacer un print @resultado me salen resultados así
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using text Syntax Highlighting
ARRAY(0xd54e2d0)ARRAY(0xd69d930)ARRAY(0xd69d9b0)ARRAY(0xd69da30)ARRAY(0xd69dab0)ARRAY(0xd69db30)ARRAY(0xd69dbb0)ARRAY(0xd69dc30)ARRAY(0xd69dcb0)
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Claro, estamos hablando de un array que contiene en cada elemento una referencia a otro array. Al hacer el print() de un array, Perl solo te despliega los elementos de ese array. Perl no sabe nada de desplegar estructuras más complicadas.

Tienes que hacerlo así (una de las varias formas que se comentan en perldsc):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $linea (@resultado) {                     # Para cada fila de @resultado
    for my $item (@$linea) {                     # Para cada elemento de la @$línea
        print "$item ";
    }
    print "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

elistraus escribiste:Me gustaría saber cómo hacerlo dinámico, no seteado, que el resultado de la consulta vaya ahí y como no logro hacer esto no he podido probar lo otro. A ver si me puedes decir qué hago mal que estoy seguro que es algo que no estoy entendiendo que me sale mal...

La estructura que yo he puesto fija es exactamente la misma estructura que hemos creado antes en @resultado (un array de arrays), así que en el programa final, el resultado de la consulta sustituye a esta parte que he puesto yo (porque yo no tengo tu base de datos, he tenido que ponerla "a mano" dentro del programa).

elistraus escribiste:Otra cosa: Mi compilación de Perl no tiene el módulo Data::Dumper::Perltidy, para mostrar un resultado hash de esa manera...

Pues... o lo instalas o editas el programa y cambias esa líneas para que ponga Data::Dumper, que sí estará instalado.

por **elistraus** » 2012-04-13 12:56 @580

Muchas gracias, seguiré tus consejos al pie de la letra ¡je,je,je,je,je! Lo tengo que conseguir cueste lo que cueste, y ya ando mirando a comprarme un libro...

Te comento cómo voy, entonces...

Saludos

por **elistraus** » 2012-04-13 15:10 @673

Ya conseguí que me funcionara el módulo. Tenías razón: Solo lo deje en Data::Dumper y funcionó. Solo me queda el detalle del hash, que no me resulta. No es que quiera abusar, pero de verdad que estoy intrigado, a ver si decirme en qué me equivoco, por favor...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        while (my @row = $sql->fetchrow_array()){
                push @resultado, \@row;
        }
        my %hash;
        for my $linea (@resultado){
                for my $item(@$linea){
                        print "$item ";    # aquí imprimimos los ítem
                }   
                print "\n";                # aquí le hago un salto para ver las filas
                push @{ $hash{ $item[5] } }, [ @$linea[0,1,2,3,4,6] ]; 
                  # y aquí es donde quiero hacer lo que me dijiste anteriormente
                  # pero me da el error:
                  # Global symbol "@item" requires explicit package name
        }
        print Dumper %hash;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y no me imprime el hash

Saludos

por **explorer** » 2012-04-13 19:09 @840

El error dice que en la línea 10 estás queriendo usar $item[5], es decir, el sexto elemento de @item. Y claro: Perl se da cuenta de que @item no está declarada ni definida en ningún sitio...

Cambia la línea 10 por:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                push @{ $hash{ $linea->[5] } }, [ @{$linea}[0..4,6] ];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es decir: $linea es una referencia a un array.

Así que con $linea->[5] accedemos al sexto elemento de ese array.

Y la otra notación quiere decir: $linea es una referencia a un array. Con @{$linea} la desreferenciamos -obtenemos todos los elementos del array-. Y como cualquier otro array, podemos usar índices para extraer valores (unos cuantos).

No es necesario comprarse un manual... Tu propio Perl, en tu propio ordenador, ya trae una serie de documentos para entender el funcionamiento de las estructuras de datos complejas (que, a propósito, esto no es propio de Perl, sino que es común en muchos lenguajes de ordenador).

Con el comando perldoc puedes sacar esas páginas. Tienes a perldata, perldsc, perllol, y perlref. Las tienes también en versión web en perldoc.org. Y algunas de ellas, ya traducidas.

Solo es tener voluntad de aprender...

P.D. No se dice 'haber', sino 'a ver' :wink:

por **elistraus** » 2012-04-17 13:18 @596

Muy buena explicación, explorer. Te pasaste, de verdad, y me sirvió muchísimo el código, además aprendí muchas cosas nuevas de Perl y todavía voy a aprender más, ¡je,je,je,je,je...! Esa es la idea. No sé si sirva a alguien, pero colocaré el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        my $entrada = "";
        my @resultado;
        while (my @row = $sql->fetchrow_array()){
                push @resultado, \@row;
        }
        my %hash;
        my @wey;
        for my $linea (@resultado) {
                for my $item (@$linea) {
                        push @wey,$item;
                }
                push @{ $hash{ $linea->[9] } }, [ @{$linea}[0..8] ];
        }
        print Dumper %hash;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora seguiré aprendiendo...

Saludos

Foro - Perl en Español

Crear arreglos desde los datos de otro arreglo

Crear arreglos desde los datos de otro arreglo

Publicidad

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

Re: Crear arreglos desde los datos de otro arreglo

¿Quién está conectado?