Usuń pliki starsze niż 5 dni w systemie UNIX (data w nazwie pliku, a nie znacznik czasu)

10

Chcę usunąć z katalogu pliki dziennika starsze niż 5 dni. Jednak usunięcie nie powinno opierać się na sygnaturze czasowej pliku. Powinien być oparty na nazwie pliku. Na przykład transmisji data jest 07/05/2012 a katalog zawiera 10 plików z nazwami takimi jak ABC_20120430.log, ABC_20120429.log, ABC_20120502.log, ABC_20120320.logitd. Chcę, aby móc usunąć pliki poprzez ekstrakcję datę z nazwą pliku.

Nalu
źródło

Odpowiedzi:

2

Na podstawie daty z nazwy pliku:

THRESHOLD=$(date -d "5 days ago" +%Y%m%d)
ls -1 ABC_????????.log | 
  sed 'h;s/[_.]/ /g;G;s/\n/ /' | 
  while read A DATE B FILE
  do 
     [[ $DATE -le $THRESHOLD ]] && rm -v $FILE
  done
olibre
źródło
Polecenia daty GNU nie działają .. :( Jakikolwiek inny sposób, aby uzyskać datę, która jest 5 dni wcześniej?
Nalu
7

Myślę, że @oHessling prawie go ma: nie analizuj ls , a możesz zrobić więcej w bash:

four_days=$(date -d "4 days ago" +%Y%m%d)
for f in ABC_[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].log; do
  date=${f#ABC_}
  date=${date%.log}
  (( $date < $four_days )) && rm "$f"
done
Glenn Jackman
źródło
Polecenia daty GNU nie działają .. :( Jakikolwiek inny sposób, aby uzyskać datę, która jest 5 dni wcześniej?
Nalu
1
@Naren: na jakim systemie operacyjnym jesteś? Jeśli nie masz datę GNU, musimy wiedzieć, co ty masz.
Mat
Z pomocą uname -a uzyskał następujące informacje: „SunOS badap01t 5.10 Generic_141444-09 sun4u sparc SUNW, SPARC-Enterprise”
Nalu
Pozostaje pytanie: jakie masz polecenia, aby uzyskać bieżącą datę?
Bram
Jeśli zainstalowano Tcl:four_days=$(echo "puts [clock format [clock scan {4 days ago}] -format %Y%m%d]" | tclsh)
glenn jackman
1

Jeden sposób przy użyciu perl:

Treść script.pl:

use warnings;
use strict;
use Time::Local qw/timelocal/;
use File::Spec;

## Process all input files.
while ( my $file = shift @ARGV ) { 

    ## Remove last '\n'.
    chomp $file;

    ## Extract date from file name.
    my ($date) = $file =~ m/.*_([^.]+)/ or next;

    ## Extract year, month and day from date.
    my ($y,$m,$d) = $date =~ m/(\d{4})(\d{2})(\d{2})/ or next;

    ## Get date in seconds.
    my $time = timelocal 0, 0, 0, $d, $m - 1, $y - 1900 or next;

    ## Get date in seconds five days ago.
    my $time_5_days_ago = time - 5 * 24 * 3600;

    ## Substract them, and if it is older delete it and print the
    ## event.
    if ( $time - $time_5_days_ago < 0 ) { 
        unlink File::Spec->rel2abs( $file ) and printf qq[%s\n], qq[File $file deleted];
    }   
}

Aby to przetestować, tworzę niektóre pliki:

touch ABC_20120430.log ABC_20120502.log ABC_20120320.log ABC_20120508.log ABC_20120509.log

Sprawdź je za pomocą ls -1:

ABC_20120320.log                                                                                                                                                                                                                             
ABC_20120430.log                                                                                                                                                                                                                             
ABC_20120502.log                                                                                                                                                                                                                             
ABC_20120508.log                                                                                                                                                                                                                             
ABC_20120509.log                                                                                                                                                                                                                             
script.pl

Uruchom skrypt w następujący sposób:

perl script.pl *.log

Z następującą mocą wyjściową:

File ABC_20120320.log deleted
File ABC_20120430.log deleted
File ABC_20120502.log deleted
Birei
źródło
-1

Zamiast tego możesz użyć faktu, że nazwy plików będą sortowane w kolejności chronologicznej. Na przykład, aby zachować ostatnie 5 plików:

ls ABC_????????.log | head -n-5 | xargs rm
Tomasz
źródło
3
Nie używaj xargs z, rmchyba że wiesz, że zabijasz kocięta za każdym razem, gdy to robisz. To po prostu zły pomysł, jeśli nie wiesz, po co przeprowadzać badania i dowiadujesz się, że zawsze istnieją lepsze sposoby rozwiązania każdego problemu, dla którego może to być rozwiązanie.
Caleb