Проблема решена теперь. Я сделал глупое предположение, что привязки клавиш были глобальны, когда на самом деле, они в расчете на пользователя. Я изменился, привязки клавиш вошли в систему как корень, но входили в сессию VNC, созданную другим пользователем. 'Скрываются, все нормальные окна …' ярлык был установлен на Mod4+D для этого пользователя. Стандартное решение — изменение его к чему-то еще, такое как Ctrl+Alt+D — решило проблему.
На основе даты от имени файла:
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
Я думаю, что @oHessling почти имеет его: не анализируйте ls, и можно сделать больше в ударе:
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
four_days=$(echo "puts [clock format [clock scan {4 days ago}] -format %Y%m%d]" | tclsh)
– glenn jackman
08.05.2012, 16:05
Один способ использовать perl
:
Содержание 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];
}
}
Для тестирования его, я создаю некоторые файлы:
touch ABC_20120430.log ABC_20120502.log ABC_20120320.log ABC_20120508.log ABC_20120509.log
Проверьте их с ls -1
:
ABC_20120320.log
ABC_20120430.log
ABC_20120502.log
ABC_20120508.log
ABC_20120509.log
script.pl
Запустите скрипт как:
perl script.pl *.log
Со следующим выводом:
File ABC_20120320.log deleted
File ABC_20120430.log deleted
File ABC_20120502.log deleted
Что Вы могли сделать, вместо этого использование то, что Ваши имена файлов отсортируют в хронологическом порядке. Например, для хранения последних 5 файлов:
ls ABC_????????.log | head -n-5 | xargs rm
rm
если Вы не знаете об уничтожении котят каждый раз, когда Вы делаете. Это - просто плохая идея, если Вы не знаете, почему проводят некоторое исследование и узнают, что всегда существуют лучшие способы приблизиться к какой-либо проблеме, для которой это могло быть решением.
– Caleb
07.05.2012, 15:43