Foro - Perl en Español

por **Powit** » 2010-08-24 14:03 @627

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.

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;
}
Coloreado en 0.009 segundos,  usando GeSHi 1.0.8.4

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

Un saludo y gracias

Foro - Perl en Español

Dibujar barra de progreso en Perl

Dibujar barra de progreso en Perl

Publicidad

Re: Dibujar barra de progreso en Perl

Re: Dibujar barra de progreso en Perl

¿Quién está conectado?