[Cascavel-pm] Problema com opendir/readdir

[Blabos de Blebe]

Nãnão pequeno gafanhoto.

> my @array = (1 .. 5) ;
>
> while (my $num = @array) {
>
>    print "$num\n";
>
> }

Cria um laço infinito.

Talvez vc queria dizer

<code>
my @array = (1 .. 5) ;
while (my $num = shift @array) {
   print "$num\n";
}
</code>

:)

2009/5/6 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>:
>
>
> 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"))'
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>