Ver Tema

Powit · Mar Ago 24, 2010 2:03 pm

Buenas a todos. Estoy realizando un cgi y éste recibe dos parámetros, uno máximo y otro mínimo.

Quisiera dibujar con algún módulo de Perl una barra de progreso (estática, no avanza con el tiempo) la cual pinto rellenada la cantidad que me dice en la variable mínimo, he estado mirando por CPAN y Google y lo más parecido que he visto es el módulo GD::3DBarGrapher el cual ya he usado para crear gráficas en un recuadro.

Éste no llega a valerme pues yo solo necesito dibujar la gráfica y de forma horizontal.

Me gustaría que solo fuera en Perl, pues he visto soluciones para barras de progreso en uploads con PHP+Ajax+Perl y esto no me valdría.

Toda la información se me pueda dar al respecto es bienvenida.

Gracias.

explorer · Mar Ago 24, 2010 6:05 pm

Bienvenido a los foros de Perl en Español, Powit.

Hay más módulos para dibujar barras, como por ejemplo, GD::Graph::hbars, pero si se trata de representar una simple barra rectangular, te valdría con dibujarla con las instrucciones de dibujo del módulo GD.

Powit · Mié Ago 25, 2010 11:59 am

Buenas, explorer, muchas gracias por su respuesta. Me las he ingeniado para hacer algo como comentas en tu respuesta. Os adjunto el código por si a alguien le pudiera ser de ayuda:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

sub progressbar($filename,$vbar) {
    ( $filename, $vbar ) = @_;
    $max = "150";
 
    # Create a new image
    use GD;
    $im = new GD::Image( $max, 12 );
 
    $white      = $im->colorAllocate( 255, 255, 255 );
    $blueborder = $im->colorAllocate( 77,  143, 204 );
    $blue       = $im->colorAllocate( 165, 192, 220 );
 
    # Make the background transparent and interlaced
    $im->transparent($white);
    $im->interlaced('true');
 
    # Draw a border
    $im->rectangle( 0, 0, $max - 1, 11, $blueborder );
 
    #rectangle
    $im->filledRectangle( 1, 1, $vbar, 10, $blue );
 
    # Open a file for writing
    open( PICTURE, ">$filename" ) or die("Cannot open file for writing");
 
    # Make sure we are writing to a binary stream
    binmode PICTURE;
 
    # Convert the image to PNG and print it to the file PICTURE
    print PICTURE $im->png;
    close PICTURE;
}

El ejemplo pinta una bonita barra tal y como la que adjunto.

Un saludo y gracias

Publicidad

Socializa