[PortoAlegre-pm] use Template

Patty Silva ptfzs em yahoo.com.br
Terça Janeiro 9 09:05:35 PST 2007


Ola Pessoal.. estou usando o Template porem nao estou conseguindo fazer a gravacao em diversos arquivo ele so grava no 1 arquivo..

meu codigo resumido.....:
Eu leio de um diretorio diversos arquivos e se dentro do arquivo possuir erro ele me gera um LOG ....

#!/usr/bin/perl


use Template;
.................
opendir (DIR, $basedir) or die "Problemas ao abrir diretorio: $!";

while (my $file = readdir(DIR)) 
{
    next if $file eq '.' or $file eq '..';
    
    chdir($dir) || die "\n *** Erro no diretorio $dir ***";
    
    $file=~ /(\d\d\d\d\d\d)/;
    $arquivo_saida="$".".log_error";
 
        
    open(FH, "<$file") or die("Nao pode acessar o arquivo");

    while(<FH>)
    {     .....................................................

        if($bla eq 'erro')
        {
           push @erros, { var => $nome,data => $data}
        }
        
        
       
      }
    
unlink($file);

chdir($dirlog);

$tamanho = @erros;

my $data_ref = {
    erros => \@erros,
};

my $t = Template->new;

$t->process(\*DATA,$data_ref,$arquivo_saida);



}

-----------------------------------------------------------------------------------------------------------
close(FH);
closedir(DIR);

$dbh->disconnect();

dbmclose %DBM;


__DATA__

ERRO
[% FOREACH id = erros %]
---------------------------------------------------------------------------------
Variavel: [%nome%] Data: [% data %] 
---------------------------------------------------------------------------------
[% END %]



Quando tem diversos arquivos ele gera so do 1 e da o seguinte erro nos outros:

Use of uninitialized value in substr at /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/Template/Provider.pm line 1044, <DATA> chunk 1.



Alguem pode dizer o que pode ser??


Obrigada



__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/portoalegre-pm/attachments/20070109/6abf50d7/attachment.html 


Mais detalhes sobre a lista de discussão PortoAlegre-pm