[Cascavel-pm] Problema com opendir/readdir
claudio em dpreferencial.com.br
claudio em dpreferencial.com.br
Segunda Maio 4 15:19:33 PDT 2009
Perl..soall, boa noite!
Sou iniciante em perl.
Estou com dificuldade em usa os comandos
opendir/ readdir
Fiz um código bem simples:
opendir(Dir,$tp) or die("Dir não existe: $!");
while($dPasta=readdir(Dir)){
my $Dor = $tp . $dPasta;
if(-z $Dor){ # testa se é um sub-diretório
my $dirtem = $Dor . "/" . $gProj . ".xml";
if(-e $dirtem ){
$dtudo = $dtudo . $dPasta . "\n";
}
}
}
closedir(Dir);
print "Content-type: text/html\n\n";
print $dtudo;
1º - rodo e dá OK
2º - crio uma pasta no path para onde aponto o opendir
3º - rodo e dá ERRADO .. retorna o mesmo conteúdo da primeira rodada.
Parece que o resulado fica na memória.
Se alguém puder me dar uma luz,
desde já agradeço a todos.
Claudio H.Binaghi
claudio em dpreferencial.com.br
5511 3288.4840
Mais detalhes sobre a lista de discussão Cascavel-pm