[Cascavel-pm] Script baseado em data

[dexter em ticbrasil.com.br]

ai galera valew .. eu só prescissava apagar os arquivos que o nome começasse
com 200

o script ta rolando beleza o codigo ta ai embaixo.

#!/bin/perl
`find . -mtime +6 >arquivos`;
open (ARQUIVOS, "<arquivos");
while (<ARQUIVOS>){
push @arquivos, (split (/\//, $_)) [1];
}
#print @arquivos;
foreach $arquivos(@arquivos){
chomp ($arquivos);
}

open (FILE, ">exec.sh");
foreach $arquivos(@arquivos){
 if ( $arquivos =~ m/^200*/){
  print FILE "rm $arquivos\n";
 }
}
`chmod +x exec.sh`;
`./exec.sh`;
`rm arquivos`;
`rm exec.sh`;

----- Original Message ----- 
From: "Luis Campos de Carvalho" <monsieur_champs em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em mail.pm.org>
Sent: 21 September, 2004 12:50 PM
Subject: Re: [Cascavel-pm] Script baseado em data


> On Tue, 21 Sep 2004 dexter em ticbrasil.com.br wrote:
> > Prescissava fazer um script que deletasse arquivos mais velhos 7 dias..
>
>   Mas como assim, mais velhos? Criados NOW()-7 dias atrás?
>   Ou acessados pela última vez NOW()-7 dias atrás?
>   Ou alterados pela última vez em data além deste período?
>
>   Você pode usar o find2perl e a manpage do find, que é bem simples de
> entender para começar. Mas para ajudar você, preciso saber qual atributo
> temporal de um arquivo você está tentando comparar.
>
> > fiz um esquema, pegando a data atual e fazendo -7, porem terei problema
> > com os primeiros dias do mes.
>
>   Opa! Aí, simplifica!
>   Que tal postar o código para a gente?
>   Podemos tentar melhorar, devagarinho... ;-)
>
> > Alguem tem alguma ideia de como fazer isso?
>
>   As minhas estão aí. Mas tenho certeza de que muitas outras pessoas tem
> muitos outros métodos de fazer isso. TIMTOWTDI.
>
>   Putamplexos!
> --
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>   Luis Campos de Carvalho is BsC in Computer Science,
>   Certified Oracle DBA, Sao Paulo PM Leader, Cascavel
>   PM Moderator, Perl Monk and Perl/Unix affictioned.
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>