Foro - Perl en Español

por **explorer** » 2015-03-24 16:16 @719

Pues... yo no veo problemas... Para el array mostrado en la línea 1, genera una matriz de 3x2:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[65,122] 66A10

[165,122] 64A10

[265,122] 54B01

[65,142] 67A10

[165,142] 65A10

[265,142]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use v5.14;
use Data::Dumper;
use autodie;
 
 
my @array = ( '64A10|F/I', '65A10|F/I', '66A10|B/A', '67A10|B/A', '54B01|C/I' );
my %cols;
 
for (@array) {
    my($valor, $clave) = split /\|/;
 
    push @{$cols{$clave}}, $valor;
}
 
say Dumper \%cols;
 
 
my $iX =  65;
my $iY = 122;
my $dX = 100;
my $dY =  20;
 
my $X  = $iX;
my $Y  = $iY;
 
for my $col (sort keys %cols) {                 # Titulares ordenados
 
    $Y = $iY;                                   # Reiniciar Y
 
    for my $valor ($col, @{$cols{$col}}) {      # para el titular y sus datos
        say "[$X,$Y] $valor";                   # los pintamos
        $Y += $dY;                              # en la misma columna, por filas
    }
 
    $X += $dX;                                  # siguiente columna
}
 
__END__
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

La salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'B/A' => [

                     '66A10',

                     '67A10'

                   ],

          'C/I' => [

                     '54B01'

                   ],

          'F/I' => [

                     '64A10',

                     '65A10'

                   ]

        };

[65,122] B/A

[65,142] 66A10

[65,162] 67A10

[165,122] C/I

[165,142] 54B01

[265,122] F/I

[265,142] 64A10

[265,162] 65A10Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2015-04-22 14:05 @629

Pues ya lo dibuja correctamente.

Sólo tengo una duda: ¿cómo puedo hacer para que el array final tenga el mismo orden que el original? Puesto que cuando se crea el hash para quitar los duplicados lo desordena. ¿Hay manera de ordenarlo de acuerdo al array original?

por **explorer** » 2015-04-22 18:52 @828

Es que el array original no contiene los titulares... son extraídos de los propios datos que vamos leyendo del @array.

Se puede hacer una cosa... vamos leyendo los datos del @array, y cada vez que encontramos un titular nuevo, lo guardamos en otro array. De esa manera vamos guardando el orden de aparición de los titulares, que aprovecharemos en la salida.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
my @array = ( '64A10|F/I', '65A10|F/I', '66A10|B/A', '67A10|B/A', '54B01|C/I' );
my %cols;
my @titulares_encontrados;
 
 
for (@array) {
    my($valor, $clave) = split /\|/;
 
    if (!exists $cols{$clave}) {        # si encontramos un titular nuevo
        push @titulares_encontrados, $clave;            # lo guardamos
    }
 
    push @{$cols{$clave}}, $valor;
}
 
say Dumper \%cols;
 
 
my $iX =  65;
my $iY = 122;
my $dX = 100;
my $dY =  20;
 
my $X  = $iX;
my $Y  = $iY;
 
for my $col (@titulares_encontrados) {
 
    $Y = $iY;                           # Reiniciar Y
 
    for my $valor ($col, @{$cols{$col}}) {
        say "[$X,$Y] $valor";
        $Y += $dY;
    }
 
    $X += $dX;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2015-04-23 08:26 @393

Sí, lo ordena de la manera que va a apareciendo en el primer array. Una última duda: ¿Cómo puedo guardar cuántas veces se repitió el titular en ese mismo orden? Lo estaba haciendo por separado pero lo desordena.

por **explorer** » 2015-04-23 12:41 @570

En el código, en la línea 34, ves que aparece @{$cols{$col}}, que es un array que almacena los valores asociados al titular $col.

Entonces, si quieres saber cuántos son, solo tienes que ver cuántos elementos hay en ese array:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $numero_elementos = @{$cols{$col}};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

Publicidad

Re: Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

Re: Dibujar con GD::Simple array multidimensional

¿Quién está conectado?