[Cascavel-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/cascavel-pm/attachments/20070109/6abf50d7/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm