diminuí o meu...<br><br>perl -e 'while(<*>){print$_,$/if-f}'<br><br>e eu não esquecí do \n... eu não preciso setar o $, pq não estou imprimindo lista...<br><br>e tirei 1 caracter do seu:<br><br>perl -e 'print$_,$/for grep{-f}<*>'
<br><br><div><span class="gmail_quote">Em 28/04/07, <b class="gmail_sendername">Solli Honorio</b> <<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</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;">
<div><span class="q"><span class="gmail_quote">On 4/28/07, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
fernandocorrea@gmail.com</a>> wrote:</span>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">o diamante (<>) já traz na ordem...<br>e qto não imprimir subdiretórios, q tal assim:
</blockquote></span>
<div><font face="courier new,monospace">Interessante, eu nunca prestei atenção neste detalhe .. pelo jeito tenho alguns códigos "desnecessário" :( .... mas acho que posso melhorar um pouquinho, se vc me permitir :)
</font></div>
<div><font face="Courier New"></font> </div>
<div><font face="Courier New">perl -e '$,=$\=$/;print grep{-f}<*>'</font></div>
<div><font face="Courier New"></font> </div>
<div><font face="Courier New">... e não esqueça do "\n" :)</font></div>
<div><font face="Courier New"></font> </div>
<div><font face="Courier New">Solli M. Honorio</font></div><div><span class="e" id="q_11236bc2fad84c7b_3">
<div> </div><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">perl -e '$\=$/;do{print if-f}while<*>'<br><br>
<div><span class="gmail_quote">Em 28/04/07, <b class="gmail_sendername">Solli Honorio</b> <<a href="mailto:shonorio@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">shonorio@gmail.com</a>
> escreveu:</span>
<div><span>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><font face="courier new,monospace">hummmm, vc não resolve o problema de conter diretórios e nem a ordem solicitado, que tal :</font></div>
<div><font face="courier new,monospace">perl -e '$,=$\=$/;print sort grep{-f}glob($d);'</font></div>
<div><font face="Courier New"></font> </div>
<div><font face="Courier New">Solli M. Honório</font></div>
<div><span>
<div><font face="Courier New"></font> </div>
<div><span class="gmail_quote">On 4/27/07, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com
</a>> wrote:</span>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">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" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> ptfzs@yahoo.com.br</a>
> escreveu:</span>
<div><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><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); padding-left: 5px; margin-left: 5px;">
<div><span>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>__________________________________________________<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><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><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 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><br></blockquote>
</span></div></div><span><br><br clear="all"><br>-- <br>[]'s Fernando </span><br>_______________________________________________<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><br></blockquote>
</div></span></div><br>_______________________________________________<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><br></blockquote></span></div></div>
<span><br><br clear="all"><br>-- <br>[]'s Fernando </span><br>_______________________________________________<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><br></blockquote>
</span></div></div><br>
<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