[Cascavel-pm] Script baseado em data
Marco A P D´Andrade
mda em embratel.net.br
Terça Setembro 21 14:12:27 CDT 2004
Dexter,
Não leva a mal não, mas... sugiro usar somente o find, xargs e rm
find <path> -mtime +6 -name 200\* | xargs rm
Vc fez 5 system calls, executou o find 1 vez, expressão regular,
operações relativamente complexas entre as variaveis, criou arquivos,
não pensou na segurança de alguem executar o script no arquivo errado e
passou a apagar arquivos com a mascara 20* ...
Confesso que não sou viciado em Perl... utilizo ele somente por ser uma
ferramenta fantástica ( pensando bem, retiro o não viciado )...
Algo que com frequencia eu ouvia aqui no trabalho, e já passou na
lista... metodo KISS.
Sds,
Marco Antonio
dexter em ticbrasil.com.br wrote:
>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
>>
>>
>>
>
>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em mail.pm.org
>http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>
Mais detalhes sobre a lista de discussão Cascavel-pm