[Rio-pm] Limpar tela
Aureliano Guedes
guedes_1000 em hotmail.com
Domingo Abril 15 07:04:24 PDT 2012
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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120415/23900750/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm