Lembrando que usar&nbsp; ` .... ` para executar coisas no shell é feio. <br>`programa` executa o programa E devolve a saida padrão dele como uma string. E você não está usando essa string.<br><br>O normal (nesse caso!) seria usar o system(&quot;programa&quot;), que retorna apenas o código de erro do programa (o que costuma ser bem mais útil).
<br><br>Além disso, as duas formas abaixo são diferentes: find por padrão é recursivo, a expansão do shell não é.<br><br>[]s<br>Wendel<br><br>On 5/30/07, <b class="gmail_sendername">Thomas Britis</b> &lt;<a href="mailto:thomas@tcnet.com.br">
thomas@tcnet.com.br</a>&gt; wrote:<div><span class="gmail_quote"></span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Duas formas.<br><br>
1- (feia, q nem a sua, hehe):<br>#!/usr/bin/perl<br>`find ../../dircod/ -exec rm -f {} \;`;<br><br>2- (bonita):<br>#!/usr/bin/perl<br>unlink &lt;../../dircod/*&gt;;<br><br><a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br
</a> wrote:<br>&gt; Cara, eu uso<br>&gt;<br>&gt; #!/usr/bin/perl<br>&gt; `rm -f ../../dircod/*`;<br>&gt;<br>&gt; pra deletar todos os arquivos do diretório &quot;dircod&quot;.<br>&gt;<br>&gt; O problema é que quando o diretóri atinge mais de uns 
7.000 arquivos,<br>&gt; esse comando não exclui nada!!!<br>&gt; Daí tenho que remover manualmente.<br>&gt;<br>&gt; Como substituir o comando acima pelo mencionado por você? Não entendi<br>&gt; muito bem como utilizar isso no meu scrip cgi.
<br>&gt;<br>&gt; []s<br>&gt; Fernando<br>&gt;<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; ----- Original Message -----<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; *From:* Frederico Recsky &lt;mailto:<a href="mailto:frederico@gmail.com">frederico@gmail.com</a>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; *To:* Cascavel Perl Mongers &lt;mailto:
<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; *Sent:* Wednesday, May 30, 2007 10:46 AM<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; *Subject:* [Cascavel-pm] apagando arquivos<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; Não é nada de novo, mas é util pacas.
<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; perl -e &#39;unlink &lt;*&gt;&#39;<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; Estou comentando porque eu tava sofrendo com um diretorio com<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; trocentos arquivos.<br>&gt;<br>&gt;<br>&gt; ------------------------------------------------------------------------
<br>&gt;<br>&gt; _______________________________________________<br>&gt; Cascavel-pm mailing list<br>&gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<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">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>&quot;Não ajustar o auto-ajuste&quot; - 
<a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>