[SP-pm] Problema com opendir/readdir
claudio at dpreferencial.com.br
claudio at dpreferencial.com.br
Mon May 4 14:05:00 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 at dpreferencial.com.br
5511 3288.4840
More information about the SaoPaulo-pm
mailing list