<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'>
O problema maior é apagar <b><u>somente</u></b> os pontos, deixando na tela <b><u>tudo</u></b> aquilo que ja foi impresso.<br><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: guedes_1000@hotmail.com<br>To: rio-pm@pm.org<br>Date: Sun, 15 Apr 2012 14:04:24 +0000<br>Subject: [Rio-pm] Limpar tela<br><br>
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<meta name="Generator" content="Microsoft SafeHTML">
<style>
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}
</style>
<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>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>