Luis.. :D<br>Eu 1 verifico se o arquivo existe...<br>se ele existir eu vou "ACRESCENTAR" dados no arquivo<br>if(-e "$dirlog/$dir/$log_error")<br>{<br> print "ARQUIVO EXISTE\n";<br> open my $FH1, ">>", $out or die "Nao foi Possivel Abrir o Arquivo: $!";<br> $t->process( \$input, $ref, $\out ) or die $template->error();<br><br> <br> }<br> else<br> {<br> print "ARQUIVO NAO EXISTE\n";<br> $t->process( \$input, $ref, $out ) or die $template->error();<br> <br> }<br><br>massssss nao funcionou.. ele imprime o nome do arquivo ...<br>:D<br>o q eu percebi foi que o $t->process( \$input, $ref, $\out ) ele cria outro arquivo.. independente de ja existir ou
nao...<br><br>[]ss<br><br><b><i>Luis Motta Campos <luismottacampos@yahoo.co.uk></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> On May 8, 2007, at 8:39 PM, Patty Silva wrote:<br>> Ola Pessoal...<br>> Estou usando a biblioteca Template<br><br> Vejo que está usando seu cérebro, também. Parabéns por escolher <br>uma biblioteca de templating e não tentar escrever a sua.<br><br>> so que quero que invez dela criar um arquivo novo ela apendar os <br>> dados no arquivo ja existente<br><br> "apendar" é a coisa mais HORRÍVEL que eu já li em Português...<br> Você está se apropriando (inapropriadamente ;-) do verbo "To <br>Append" e aportuguesando, para dizer "acrescentar".<br> Eu gosto de escrever e ler corretamente em qualquer língua (ou <br>linguagem) que eu falo. Por isso, recomendo tomar cuidado.<br> Muito da nossa imagem é o que a gente escreve, já que a maior
<br>parte das pessoas não nos conhece pessoalmente.<br><br> Mesmo assim, eu entendi o que você quer fazer.<br><br>> eu faco assim<br>> my $input = "<br>> [% FOREACH id = dados %]<br>> ---------------------------------------------------------------------- <br>> -----------<br>> Valor: [% valor %]<br>> ---------------------------------------------------------------------- <br>> -----------<br>> [% END %]";<br><br><br> Não vou comentar nada sobre o teu template - eu espero que você <br>saiba o que está fazendo.<br><br>> my $ref = { dados => \@dados, };<br>> my $t = Template->new;<br>><br>> $t->process( \$input, $ref, $out ) or die $template->error();<br><br> A solução para o seu problema é passar $out como referência:<br><br> $t->process( \$input, $ref, \$out ) or die $t->error;<br><br> Assim, você vai ter o texto processado em $out, e vai poder abrir <br>o arquivo e acrescentar por sua conta:<br><br>
open my $FH, '+>', '/caminho/para/relatorio.txt'<br> or die $!;<br> print $FH $out;<br> close $FH or die $!;<br><br> Espero que isso ajude.<br> Putamplexos!<br>--<br>Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/