perl -e '$,=$\=$/;print<$caminho/*>'<br><br>Desculpem... adoro one-liner...<br><br><div><span class="gmail_quote">Em 27/04/07, <b class="gmail_sendername">Patty Silva</b> <<a href="mailto:ptfzs@yahoo.com.br">
ptfzs@yahoo.com.br</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Pessoal<br><br>fiz assim:<br>foreach my $arquivo (sort(readdir DIR))
<span class="q"><br>{<br> next if $arquivo eq '.' or $arquivo eq '..';<br></span> print "FILE $arquivo\n";<br>}<br><br>funcionou :D<br><br><b><i>Patty Silva <<a href="mailto:ptfzs@yahoo.com.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
ptfzs@yahoo.com.br</a>></i></b> escreveu:<blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div><span class="e" id="q_112347311a8a6ff7_3"> Ola pessoal.. <br>Estou com uma duvida...
<br>eu estou fazendo assim:<br><br>--------------------------------------------------------------------------------------------------------------------<br><br>opendir(DIR, $caminho) or die "Can't open directory:$!";
<br><br>while($arquivo = readdir(DIR))<br>{<br><br> next if $arquivo eq '.' or $arquivo eq '..';<br> chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br>
<br> print "Arquivo $arquivo\n"<br>}<br><br>--------------------------------------------------------------------------------------------------------------------<br><br>Para ler arquivos de um diretorio..
<br>Dentro desse diretorio tem arquivos nesse formato yyyymmdd_hhmm<br>Eu quero q ele pegue em ordem crescente.. tem como?<br><br>ex: no diretorio tem: 20070426_0500 20070426_1200 20070426_0300<br>quero que ele leia na ordem:
<br>1) - 20070426_0300<br>2) - 20070426_0500<br>3) - 20070426_1200<br><br><br>Como posso fazer isso? :D<br><br>Obrigada pessoal<br><br>[]s<br><br> <br></span></div><div><div><span class="e" id="q_112347311a8a6ff7_5">
__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br></span></div><a href="http://br.messenger.yahoo.com/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://br.messenger.yahoo.com/</a> _______________________________________________<span class="q"><br>Cascavel-pm mailing
list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a></span></div></blockquote><div><span class="e" id="q_112347311a8a6ff7_9"><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger
<br><a href="http://br.messenger.yahoo.com/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://br.messenger.yahoo.com/</a> </p></span></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" 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>[]'s Fernando