O código Perl equivalente ao seu "find":<br><br>perl -MFile::Find -E 'find sub{say $File::Find::name if -f && 1.0 > -M}, qw(/etc)'<br><br>Trocando em miúdos, o File::Find funciona por meio de um callback: para cada arquivo encontrado, ele chama uma função que você define (no caso, usei uma anônima). E para cada diretório "explorado", o find() dá um chdir(). Dentro da função chamada, a variável $_ recebe o nome do arquivo.<br>
<br>ABS()<br><br>
<br><br><div class="gmail_quote">2011/1/13 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Boa tarde pessoal.<br>
<br>
Preciso fazer uma buscar no meu sistema por arquivos que foram criados ou modificados em determinado período.<br>
Por exemplo, no meu terminal se eu digitar: "find /etc -mtime -1 -type f -print" me listar os arquivos modificados no dia anterior.<br>
<br>
Estive dando uma olhada no módulo File::Find, mas acho que não estou entendendo direito.<br>
<br>
O que posso usar para fazer esta busca?<br>
<br>
abraço,<br>
Flávio<br>
=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</blockquote></div><br>