[Cascavel-pm] monitoração de processamento

[Ednardo Lobo]

On Wed, Oct 01, 2003 at 01:47:41PM -0300, Alceu R. de Freitas Jr. wrote:
> Ok, eu testei o módulo. Se alguém quiser tentar, segue abaixo o código
> que usei em base da documentação do módulo:
>
> #!/usr/bin/perl
> 
> use warnings;
> use CGI::ProgressBar;
> use strict;
> 
> my $cgi = new CGI;
> 
> $| = 1;
> print $cgi->header;
> print $cgi->start_html('A Simple Example');
> print $cgi->h1('A Simple Example');
> print $cgi->p('This example will fill the screen with
> nonsense between 1 to 10');
> print progress_bar ( -from =>1, -to =>10 );
> 	
> 	for (1 .. 10) {
> 		print update_progress_bar;
> 		#print rand>0.5 ? chr 47 : chr 92 for 0 .. 100000;
> 		print '#';
> 		sleep 1;
> 	}
> 
> print hide_progress_bar;
> print $cgi->p('All done');
> print $cgi->end_html;
>
> Eu  considero o  resultado simples,  mas funcional.  Apesar do  estado
> ALPHA, eu  não encontrei  erros no  módulo, e ele  é muito  simples de
> usar. Quando  o autor possibilitar  usar cores  para criar a  barra de
> progresso com CSS, vai ficar bem interessante.
>
> []´s
> Alceu

    Legal Alceu,

    Analizando  sua   condificação  concluí  que  esse   módulo  utiliza
extamente  aquela  técnica  que  lhe  sugeri.  E  como  existem  módulos
para  tudo na  PERL,  era de  se  esperar que  existisse  um módulo  que
implementasse justamente essa funcionalidade.

    Obrigado por nos apresentar esse módulo!


    Valeu!
    
-- 
    Ednardo Lobo - www.elobo.cjb.net, www.lobosnet.com

    Por favor, evitem enviar anexos no formato MS-Office, obrigado!
    Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html