<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'>
Boa, gostei da barrinha... hahaha, <br>Obrigado por ajudar, entendi, mas tentei dessa forma<br>perl -e '$| = 1; @s = qw(. .. ...); while(++$i) { print $s[$i % @s], "\r"; sleep 1; }'<br>para fazer os pontinhos mas não adiantou, quando chega nos 3 pontinhos para<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: creaktive@gmail.com<br>Date: Sun, 15 Apr 2012 11:36:51 -0300<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] Limpar tela<br><br>A clássica "barrinha girano":<div><br></div><div>perl -e '$| = 1; @s = qw(.\ .\.\ .\.\.\); while(++$i) { print $s[$i % @s], "\r" }'</div><div><br></div><div>Repare no "$| = 1" no começo, isso força o flush do output para cada print (o default é flush quando encontra um caractere LF, "\n").</div>
<div>Agora, para imprimir coisas diferentes na mesma linha de uma forma razoavelmente compatível, é só usar o caractere CR, "\r").</div><div>Nota de rodapé: texto no formato "DOS" termina as linhas com CRLF; já o formato "UNIX" presume que LF já basta. Se não me falha a memória, MacOS antes do X usava apenas CR.</div>
<div>Também recomendo dar uma olhada no <a href="https://metacpan.org/module/Term%3a%3aProgressBar" target="_blank">https://metacpan.org/module/Term::ProgressBar</a><br clear="all"><br>ABS()<br><br>
<br><br><div class="ecxgmail_quote">On Sun, Apr 15, 2012 at 11:15, Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span> wrote:<br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><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></div><hr>From: <a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a><br>
To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>Date: Sun, 15 Apr 2012 14:04:24 +0000<br>Subject: [Rio-pm] Limpar tela<div><div class="h5"><br><br>
<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></div></div>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>