<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Bom dia,<br>Monges.<br><br>Estava pensando se teria como limpar tela sem o uso de recursos externos pela função "system",<br>pois o uso dela limita a portabilidade entre plataformas.<br><br>Digamos que eu tenha uma rotina que imprima na tela de 1 a 3 pontos, como aquela barra<br>de atualização do Windows.<br><br>_____________________________________________________________________<br>my $string = '.';<br><br>while (($string eq '.') or ($string eq '..') or ($string eq '...')){<br> <br> if (($string eq '.') or ($string eq '..')){<br> print $string, "\n";<br> $string .= '.'; <br> } <br> <br> else {<br> print $string, "\n";<br> chop $string; <br> chop $string;<br> }<br> <br> sleep 1; <br>}<br>_____________________________________________________________________<br><br>mas eu quero que a cada print a tela seja limpada de forma a aparecer so o print da vez,<br>contudo mantendo a portabilidade do codigo entre as plataformas.<br><br>Alguma forma simples de fazer isso??<br><br>Desde já grato,<br>Aureliano Guedes.<br> </div></body>
</html>