[Cascavel-pm] Problema com opendir/readdir

[Daniel de Oliveira Mantovani]

2009/5/6 Nickollas Carvalho <linuxcontrol em gmail.com>

>
>
> 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 '=='?
>

Não, ele não quer.

Ele está atribuindo um right value a um left value.

my @array = (1 .. 5) ;

while (my $num = @array) {

   print "$num\n";

}

Vai imprimir:
<red>
1
2
3
4
5
</res>

Entendeu ?


>
>
>>
>>           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
>>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
http://mantovanihouse.blogspot.com/
This is my poney:
-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(---------)----)----------
-------)----(-------)----(-----------
-------(----(-------)----)-----------
--------\_-(\\.---.//)-_/------------
----------\)' -8--8- '(/--------------
-----------/------------\---------------
----------(--)--------(--)--------------
------------(_c__c_)----------------
----------------------------------------
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("
http://www.perl.org.br"))'
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20090506/09ed23a9/attachment.html>