<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Obrigado Stanislaw, valeu pela dica!<br>
Vou olhar melhor os "File Test Operators".<br>
<br>
Uma outra coisa, por curiosidade: Existe diferença de performance entre
usar:<br>
<br>
find /etc -mtime -1 -type f -print<br>
ou<br>
perl -MFile::Find -E 'find sub{say $File::Find::name if -f &&
1.0 > -M}, qw(/etc)'<br>
<br>
Pergunto isto pois dependendo do diretório, seus sub-diretórios e
números de arquivos, gostaria de saber quais das formas me retorma mais
rápido o resultado da busca.<br>
<br>
abraço,<br>
Flávio<br>
<br>
<br>
<br>
Em 13-01-2011 17:05, Stanislaw Pusep escreveu:
<blockquote
cite="mid:AANLkTi=TZA8c3k1Xs_c1PS=EK1ae=Qc+uLy9kCOPf4Hc@mail.gmail.com"
type="cite">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
moz-do-not-send="true" href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</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;">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 moz-do-not-send="true"
href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a moz-do-not-send="true"
href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a moz-do-not-send="true"
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>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
=begin disclaimer
Sao Paulo Perl Mongers: <a class="moz-txt-link-freetext" href="http://sao-paulo.pm.org/">http://sao-paulo.pm.org/</a>
SaoPaulo-pm mailing list: <a class="moz-txt-link-abbreviated" href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a>
L<a class="moz-txt-link-rfc2396E" href="http://mail.pm.org/mailman/listinfo/saopaulo-pm"><http://mail.pm.org/mailman/listinfo/saopaulo-pm></a>
=end disclaimer
</pre>
</blockquote>
<br>
</body>
</html>