<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">Obrigada pela Dica :)<br>So uma coisa... isso sao em dias.. mas se eu quiser buscar os arquivos das ultimas 2 horas por exemplo...<br>Obrigada :)<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Adriano Ferreira <a.r.ferreira@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Terça-feira, 19 de Fevereiro de 2008 1:42:47<br>Assunto: Re: [Cascavel-pm] Res: Listar ultimos arquivos criados<br><br>2008/2/18
Patty
Silva
<<a ymailto="mailto:ptfzs@yahoo.com.br" href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>>:<br>><br>>
Ok..
Obrigada
pela
dica:<br>>
.<br>>
.<br>>
.<br>>
.<br>>
my
@files
=
grep
-M
>
2,
readdir
$dh;<br>><br>><br>>
closedir
$dh;<br>><br>><br>>
for
my
$file
(
@files
)
{<br>>
......<br>>
}<br><br>Bonito
código!
Duas
observações:<br><br>*
por
estilo,
talvez
seja
preferível
marcar
o
bloco
do
'grep'<br>explicitamente
-
o
que
facilita
a
manutenção
e
evolução
por
outras<br>pessoas
(e
inclusive
por
você
daqui
a
uns
tempos)<br><br>
grep
{
-M
<
2
}
...<br><br>*
Você
pode-se
livrar
do
opendir/readir/closedir
através
de
um
glob<br><br>
my
$glob
=
'dir/*'<br>
my
@files
=
grep
{
-M
>
2
}
glob(
$glob
);<br><br>#
tudo
aqui
continua
como
antes<br>
for
my
$file
(
@files
)
{<br>
......<br>
}<br><br>Com
a
vantagem
de
que
este
código
é
mais
geral
porque
o
$glob
pode<br>incluir
vários
diretórios
e
trabalhar
diferentes
'patterns'
como:<br>
my
$glob
=
'{dir1,dir2}/*';<br>
my
$glob
=
'dir/*/*.txt';<br><br>e
coisas
assim.<br><br>Atenção
que
o
"
glob(
$glob
)
"
pode
ser
substituído
pelo
operator
"<br><$glob>
"
mas
não
é
recomendável
pela
mesma
razão
do
bloco
do
grep
sem<br>as
chaves:
reduz
a
ambigüidade
(confusão
com
o
operador
"readline":<br><$fh>)
e
melhora
a
legibilidade.<br><br>Parabéns.<br><br>><br>>
-----
Mensagem
original
----<br>>
De:
Adriano
Ferreira
<<a ymailto="mailto:a.r.ferreira@gmail.com" href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>><br>>
Para:
Cascavel
Perl
Mongers
<<a ymailto="mailto:cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>>
Enviadas:
Segunda-feira,
18
de
Fevereiro
de
2008
16:51:24<br>>
Assunto:
Re:
[Cascavel-pm]
Listar
ultimos
arquivos
criados<br>><br>><br>><br>>
2008/2/18
Patty
Silva
<<a ymailto="mailto:ptfzs@yahoo.com.br" href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>>:<br>>
><br>>
>
Pessoal,
estou
usando
o
modulo
use
File::stat
para
retornar
informacoes<br>>
dos<br>>
>
arquivos..<br>>
>
porem
gostaria
de
recuperar
os
arquivos
dos
ultimos
2
dias??<br>>
>
o
stat
me
retorna
nesse
formato:Tue
May
24
13:12:58
2005<br>>
><br>>
>
Alguem
poderia
me
ajudar??<br>><br>>
Eu
ia
dizer:<br>><br>>
"Show
us
the
code"<br>><br>>
Mas
antes,
pense
nas
respostas
que
você
recebe
da
lista,
respostas
que<br>>
abreviam
o
problema
ao
mínimo
necessário
que
no
caso
é
"recuperar
os<br>>
arquivos
dos
ultimos
2
dias".
Portanto
faça
um
esforço
para
expressar<br>>
em
Perl
pelo
menos
uma
aproximação
à
solução
que
você
quer
e
então<br>>
envie
para
a
lista.
Assim
mais
gente
pode
ler
(porque
o
problema
já<br>>
foi
reduzido),
e
pode
concentrar
nos
pontos
de
melhora,
otimização,<br>>
estilo,
etc.
Você
aprende
em
fazer
e
aprende
ao
receber
as
respostas.<br>><br>>
Dica:
o
operador
-M,
a
função
grep<br>><br>>
>
Obrigada<br>>
><br>>
>
________________________________<br>>
>
Abra
sua
conta
no
Yahoo!
Mail,
o
único
sem
limite
de
espaço
para<br>>
>
armazenamento!<br>>
>
_______________________________________________<br>>
>
Cascavel-pm
mailing
list<br>>
>
<a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>>
>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>>
><br>>
_______________________________________________<br>>
Cascavel-pm
mailing
list<br>>
<a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br>><br>><br>>
________________________________<br>>
Abra
sua
conta
no
Yahoo!
Mail,
o
único
sem
limite
de
espaço
para<br>>
armazenamento!<br>>
_______________________________________________<br>>
Cascavel-pm
mailing
list<br>>
<a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br>_______________________________________________<br>Cascavel-pm
mailing
list<br><a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></div><br></div></div><br>
<hr size=1>Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento!
</body></html>