<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Oi Mitsuomi!<DIV><BR class="khtml-block-placeholder"></DIV><DIV>Seja bem vindo!</DIV><DIV><DIV><BLOCKQUOTE type="cite"></BLOCKQUOTE><BR><BLOCKQUOTE type="cite"><DIV class="MsoNormal">Ex: Eu gostaria de imprimir o texto “Contagem: 1” <SPAN style="font-family: Wingdings;"><SPAN style="">ß</SPAN></SPAN> ai esse 1 fosse aumentando pra 2,3,4,5...<BR>Se alguém puder me tira essa dúvida ficarei grato.<BR class="khtml-block-placeholder"></DIV></BLOCKQUOTE><DIV><BR class="khtml-block-placeholder"></DIV>Existem diversas maneiras de fazer isso. A mais simples seria utilizando o comando print (na sua shell, se utiliza Linux, digite "perldoc -f print"):</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>for (my $contador = 0;; $contador++) {</DIV><DIV> print "Contagem: $contador\n";</DIV><DIV>}</DIV><DIV><BR></DIV><DIV>Outra opção seria utilizar printf (denovo, na shell digite "perldoc -f printf"), que é semelhante ao printf do C:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>for (my $contador = 0;; $contador++) {</DIV><DIV> printf("Contagem: %i\n", $contador);</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Detalhe: os dois exemplos irão incrementar infinitamente.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Um bom começo para aprender Perl é "perldoc perl", "perldoc perlintro". Já existe bastante documentação disponível em português no projeto de tradução em <A href="http://www.perl.org.br">http://www.perl.org.br</A>/.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></DIV></BODY></HTML>