Foro - Perl en Español

por **sarriaga** » 2015-03-18 11:49 @534

Hola, compañeros Perleros, ¿qué tal? Pues nuevamente con un problema de programación (¡ja, ja, ja!) Les platico un poco, ya que no he encontrado la manera de hacer esto.

Tengo un script que me genera una imagen de una tabla con una lista de números y la dibujo con GD::Simple.

Lo que quiero hacer es ordenar estos datos de manera que el primer grupo se escriba en forma de lista y al terminar ese grupo de datos escriba el siguiente a su lado derecho en forma de lista también.

Les pongo un ejemplo:

Este es el array:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@noSerie = (['6764A10','6765A10','6766A10', '6767A10'],['6854B01','6855B01','6856B01']);
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

y quiero mostrarlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Tabla1

Dato1            Dato2

6764A10       6854B01

6765A10       6855B01

6766A10       6856B01

6767A10Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Cuando es un array de una sola dimensión no tengo problemas en enlistar. El problema es cuando es multidimensional ya que primero quiero escribir en "y" y luego en "x" siguiendo "y".

Utilizo lo siguiente para arrays de una dimensión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $ini = 100; 
my @Prod = ('Tornillos', 'Clavos');
 foreach(@Prod){
    $img->moveTo($ini, 25); #(x,y)
    $img->string($_);
    $ini= $ini+50;
 }
 
my $ini2 = 40; 
my @item = (1..5);
 foreach(@item){
    $img->moveTo(20, $ini2); #(x,y)
    $img->string($_);
    $ini2= $ini2+20;
 }
 
open my $fh, ">listaProductos.png";
binmode $fh;
print $fh $img->png;
close $fh;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y el resultado es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

       Tornillos           Clavos

1

2

3

4

5Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sé que parece un poco confusa mi manera de explicar (incluso para mi misma :oops:

) pero básicamente es el problema que tengo... Lo hice de está manera y no con un módulo para generar tablas porque lo necesito así con GD. Y que la salida sea una imagen png.

Espero que puedan ayudarme.

Saludos.

Bueno, no veo problemas en leer por filas o por columnas, e ir colocando los elementos en la posición donde corresponde.

Quiero decir, que si estamos en el elemento (i,j), la posición que ocupará en el gráfico será

x = baseX + i * w;
y = baseY + j * h;

siendo

baseX = desplazamiento horizontal en pixel de la primera columna
baseY = desplazamiento vertical en pixel de la primera fila
w = pixel de separación entre columnas
h = pixel de separación entre filas

por **sarriaga** » 2015-03-18 15:09 @673

Ok, entiendo el análisis que hace, pero no veo cómo aplicarlo a la programación, puesto que los movimientos los realizo con un foreach.

por **explorer** » 2015-03-18 16:15 @718

Puedes recorrer la estructura bidimensional por medio de coordenadas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
 
my @noSerie = (
    ['6764A10','6765A10','6766A10','6767A10'],
    ['6854B01','6855B01','6856B01'],
);
 
my $Dato = 'Dato1';
 
## Averiguar el número de filas a pintar (ver el máximo de datos por columna)
my $maxFilas = 0;
 
for my $columna (@noSerie) {
    if ($maxFilas < @$columna) {
        $maxFilas = @$columna;
    }
}
 
#print "Número máximo de filas: $maxFilas\n";
 
## Salida de la tabla
print " Tabla1\n";
 
printf "%-10s", $Dato++ for @noSerie;
print "\n\n";
 
for my $fila (0 .. $maxFilas-1) {
 
    for my $columna (0 .. @noSerie-1) {
 
        printf "%-10s", $noSerie[$columna][$fila];
    }
    print "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este caso, hay un doble bucle de $fila y $columna (que van de 0 al valor máximo de cada fila y columna). Con esas coordenadas ya puedes colocar los elementos en su posición.

por **sarriaga** » 2015-03-18 17:42 @779

Ok, pero si los datos resultantes quiero ponerlos como $img->string() y no mostrar en printf.

por **explorer** » 2015-03-18 21:02 @918

Calcula las posiciones que darás a moveTo() a partir de los datos de $fila y $columna...

por **sarriaga** » 2015-03-24 09:21 @431

¡Cierto! funciona correctamente :oops:

Ahora tengo un inconveniente, ya que no he logrado crear otro array multidimensional de manera dinámica.

Lo que busco es crear varios arrays donde algunos de sus elementos sean iguales y crear otro array de esos arrays.

Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
my @array = ('64A10|F/I','65A10|F/I','66A10|B/A','67A10|B/A','54B01|C/I');
 
foreach(@array){
    @row = split(/\|/, $_ );
    push(@table, [@row]);            
}
 
my @Series;
my %hash;
my @filas = @table;  
foreach my $a (@filas) {
    $hash{$a->[1]}++;          
    push(@Series, [$a->[0]]);
}
 
#Verificar ocurrencias
foreach my $a (keys %hash) {
    print "$a aparece $hash{$a} veces\n";
}
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

A lo que me da la siguiente información:

C/I aparece 1 veces
B/A aparece 2 veces
F/I aparece 2 veces

pero ¡no estoy agrupando correctamente los datos!

Y quiero que mi estructura o array quede así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = [

          '64A10',

          '65A10'

        ];

$VAR2 = [

          '66A10',

          '67A10'

        ];

$VAR3 = [

          '54B01'

        ];Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2015-03-24 13:24 @600

Bueno, ya logré agrupar los datos, ahora cada grupo quiero ponerlo en un array multidimensional, o sea que cada grupo sea un array y todos estos arrays ponerlos en un array.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dato;
foreach(@table){
    push(@{$dato->{descripcion}->{$_->[1]}}, $_->[0]);
}
 
# Lo pasó a un array pero no como grupos
my @SeriesEmb = values %$dato;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2015-03-24 13:34 @607

¡Listo! pude asignar de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @SeriesEmb = sort(values %{$dato->{descripcion}});
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2015-03-24 15:50 @701

Una última duda.... ¿Cómo puedo hacerle para que al momento de posicionar o dibujar no me quite el primer elemento del primer array?

Hago esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @array = ( '64A10|F/I', '65A10|F/I', '66A10|B/A', '67A10|B/A', '54B01|C/I' );
 
foreach (@array) {
    @row = split( /\|/, $_ );
    push( @table, [@row] );
}
 
my $dato;
foreach (@table) {
    push( @{ $dato->{descripcion}->{ $_->[1] } }, $_->[0] );
}
my @noSerie = sort( values %{ $dato->{descripcion} } );
 
###dibujo los números de serie
 
my $img = GD::Simple->new( 800, 1308 );
 
my $maxFilas = 0;
 
for my $columna (@noSerie) {
    if ( $maxFilas < @$columna ) {
        $maxFilas = @$columna;
    }
}
my $initY = 122;
my $initX = 65;
my ( $x, $y );
for my $fila ( 0 .. $maxFilas - 1 ) {
    for my $columna ( 0 .. @noSerie - 1 ) {
        $img->moveTo( $x, $y );                #(x,y)
        $img->string( $noSerie[$columna][$fila] );
        $x = $initX + $columna * 100;
        $y = $initY + $fila * 20;
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero siempre me quita el primer elemento, ¿cómo hago para que respete todos los datos, o bien agregar un elemento vacío al inicio del array y así no afecte el primer elemento?

Foro - Perl en Español

Dibujar con GD::Simple array multidimensional

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

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?