<br><br><div class="gmail_quote">2009/5/6 Nickollas Carvalho <span dir="ltr">&lt;<a href="mailto:linuxcontrol@gmail.com">linuxcontrol@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><br><div class="gmail_quote"><div class="im">2009/5/4  <span dir="ltr">&lt;<a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a>&gt;</span><br></div><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!<div class="im"><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(&quot;Dir não existe: $!&quot;);<br>
      while($dPasta=readdir(Dir)){</div></blockquote><div><br>vc fez uma atribuição na linha acima &#39;=&#39; vc não estava querendo fazer uma comparação &#39;==&#39;?</div></div></blockquote><div><br>Não, ele não quer.<br>
<br>Ele está atribuindo um right value a um left value.<br><br>my @array = (1 .. 5) ;<br><br>while (my $num = @array) {<br><br>   print &quot;$num\n&quot;;<br><br>}<br><br>Vai imprimir:<br>&lt;red&gt; <br>1<br>2<br>3<br>4<br>
5<br>&lt;/res&gt;<br><br>Entendeu ?<br><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="gmail_quote"><div><br> </div><div class="im">
<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 . &quot;/&quot; . $gProj . &quot;.xml&quot;;<br>
              if(-e $dirtem ){<br>
                 $dtudo  = $dtudo . $dPasta . &quot;\n&quot;;<br>
              }<br>
           }<br>
      }<br>
      closedir(Dir);<br>
    print &quot;Content-type: text/html\n\n&quot;;<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></div><br>
<br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">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><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)&#39; -8--8- &#39;(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le &#39;grep{ print $1 if /href=&quot;(http.+?)&quot;/}split($/,get(&quot;<a href="http://www.perl.org.br">http://www.perl.org.br</a>&quot;))&#39;<br>