[Rio-pm] Limpar tela

Aureliano Guedes guedes_1000 em hotmail.com
Domingo Abril 15 07:15:18 PDT 2012


O problema maior é apagar somente os pontos, deixando na tela tudo aquilo que ja foi impresso.


From: guedes_1000 em hotmail.com
To: rio-pm em pm.org
Date: Sun, 15 Apr 2012 14:04:24 +0000
Subject: [Rio-pm] Limpar tela







Bom dia,
Monges.

Estava pensando se teria como limpar tela sem o uso de recursos externos pela função "system",
pois o uso dela limita a portabilidade entre plataformas.

Digamos que eu tenha uma rotina que imprima na tela de 1 a 3 pontos, como aquela barra
de atualização do Windows.

_____________________________________________________________________
my $string = '.';

while (($string eq '.') or ($string eq '..') or ($string eq '...')){
                    
    if (($string eq '.') or ($string eq '..')){
        print $string, "\n";
        $string .= '.'; 
    }                    
    
    else {
        print $string, "\n";
        chop $string; 
        chop $string;
    }
    
    sleep 1; 
}
_____________________________________________________________________

mas eu quero que a cada print a tela seja limpada de forma a aparecer so o print da vez,
contudo mantendo a portabilidade do codigo entre as plataformas.

Alguma forma simples de fazer isso??

Desde já grato,
Aureliano Guedes.
 		 	   		  

_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120415/2062ad13/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm