[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