[Cascavel-pm] Script baseado em data

dexter em ticbrasil.com.br dexter em ticbrasil.com.br
Terça Setembro 21 14:42:09 CDT 2004


Muito obrigado pela dica.
----- Original Message ----- 
From: "Marco A P D´Andrade" <mda em embratel.net.br>
To: "Cascavel Perl Mongers" <cascavel-pm em mail.pm.org>
Sent: 21 September, 2004 4:12 PM
Subject: Re: [Cascavel-pm] Script baseado em data


> 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
> >
> >
> >
> >
>
>
>
> _______________________________________________
> 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