[Cascavel-pm] Problema com opendir/readdir

[Nickollas Carvalho]

2009/5/4 <claudio em dpreferencial.com.br>

> 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)){


vc fez uma atribuição na linha acima '=' vc não estava querendo fazer uma
comparação '=='?


>
>           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
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20090506/1a8909a5/attachment.html>