<br><br><div class="gmail_quote">2009/5/6 Nickollas Carvalho <span dir="ltr"><<a href="mailto:linuxcontrol@gmail.com">linuxcontrol@gmail.com</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;">
<br><br><div class="gmail_quote"><div class="im">2009/5/4 <span dir="ltr"><<a href="mailto:claudio@dpreferencial.com.br" target="_blank">claudio@dpreferencial.com.br</a>></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("Dir não existe: $!");<br>
while($dPasta=readdir(Dir)){</div></blockquote><div><br>vc fez uma atribuição na linha acima '=' vc não estava querendo fazer uma comparação '=='?</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 "$num\n";<br><br>}<br><br>Vai imprimir:<br><red> <br>1<br>2<br>3<br>4<br>
5<br></res><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 . "/" . $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></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>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>