<br><br><div class="gmail_quote">2009/5/4 <span dir="ltr"><<a href="mailto:claudio@dpreferencial.com.br">claudio@dpreferencial.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Perl..soall, boa noite!<br>
<br>
Sou iniciante em perl.<br>
<br>
Estou com dificuldade em usa os comandos<br>
opendir/ readdir<br>
<br>
Fiz um código bem simples:<br>
<br>
opendir(Dir,$tp) or die("Dir não existe: $!");<br>
while($dPasta=readdir(Dir)){</blockquote><div><br>vc fez uma atribuição na linha acima '=' vc não estava querendo fazer uma comparação '=='?<br> </div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
my $Dor = $tp . $dPasta;<br>
if(-z $Dor){ # testa se é um sub-diretório<br>
my $dirtem = $Dor . "/" . $gProj . ".xml";<br>
if(-e $dirtem ){<br>
$dtudo = $dtudo . $dPasta . "\n";<br>
}<br>
}<br>
}<br>
closedir(Dir);<br>
print "Content-type: text/html\n\n";<br>
print $dtudo;<br>
<br>
1º - rodo e dá OK<br>
2º - crio uma pasta no path para onde aponto o opendir<br>
3º - rodo e dá ERRADO .. retorna o mesmo conteúdo da primeira rodada.<br>
<br>
Parece que o resulado fica na memória.<br>
<br>
Se alguém puder me dar uma luz,<br>
<br>
desde já agradeço a todos.<br>
<br>
<br>
Claudio H.Binaghi<br>
<a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a><br>
5511 3288.4840<br>
<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</blockquote></div><br>