<br><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div style="font-family: times new roman,new york,times,serif; font-size: 14pt;">
<div style="font-family: times new roman,new york,times,serif; font-size: 14pt;">Consegui resolver...<br>$t->process(\$format,$data_ref,$arquivo_saida); ao invez de: <span style="background-color: rgb(255, 255, 0);">$t->process(\*DATA,$data_ref,$arquivo_saida)
</span></div></div></div></blockquote><div><br></div>Você chegou a ler todos os comentários que fiz? Se você seguir alguns padrões de desenvolvimento que, no início parecerão chatos, vão te poupar um bom tempo depois:<br>
<br>1) use stricts; use warnings;<br>2) open my $fh, ">", $filename or die "Why Perl failed? Oh, I know: $!";<br>3) File::Find ou File::Find::Rule para iterar e procurar arquivos ou diretórios<br>4) perl -c meu_programa.pl para verificar a sintaxe
<br>5) perltidy meu_programa.pl garante a indentação do seu programa.<br><br>Quem mais se arrisca a popular a lista? Links? Sugestões?<br></div><br>-- <br>Igor Sutton Lopes <<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com
</a>>