Автоматически переименовывать файлы, когда они помещены в определенный каталог

Можно ли автоматически переименовать файл, когда он помещен в определенный каталог?

Например, у меня есть каталог с именем «dir0». Я перемещаю или копирую файл с именем «file1» в «dir0». Затем «file1» следует переименовать в «file1_ {current timestamp}»

Обычно вы делаете это программно во время создания или перемещения файла, но можно запускать сценарий всякий раз, когда файл создается или перемещается в папку с помощью incron. Настройте свой файл вкладок, используя incrontab -eследующую строку, но, конечно, с вашими путями:

/path/to/dir0 IN_MOVED_TO,IN_CREATE /path/to/script $@/$#

Затем /path/to/scriptнапишите быстрое действие переименования. Имейте в виду, что сценарий также будет вызываться для нового файла, который вы создаете, поэтому он должен проверить, было ли имя файла соответствующим образом уже названо или нет. В этом примере он проверяет, имеет ли файл десятизначное число секунд с начала эпохи в качестве последней части имени файла, и если нет, добавляет его:

#!/bin/bash
echo $1 | grep -qx '.*_[0-9]\{10\}' || mv "$1" "$1_$(date +%s)"

Изменить: Когда я впервые написал это, у меня было мало времени, и я не мог понять, как заставить bashсделать сопоставление с образцом здесь. Жиль указал, как это сделать, не вызывая grep, используя ERE match в bash:

#!/bin/bash
[[ ! ( $1 =~ _[0-9]{10}$ ) ]] && mv "$1" "$1_$(date +%s)"

Я думаю, что inotifyэто инструмент, который может быть использован в этом случае. В Debian есть инструмент inoticomingдля выполнения действий по созданию файла:

 inoticoming --foreground /path/to/directory mv {} {}-"`date`" \;

{} будет заменено на имя файла.

Команда, которую я предоставил, не завершена - она ​​вызывает цикл, потому что, когда файл будет переименован, он будет распознан как новый, поэтому он получит mvEd AGAIN и так далее. Чтобы избежать этого, вы можете использовать --suffixопцию, если вы знаете, какой суффикс будет в файле перед переименованием.

Вы можете просто взять такой скрипт и запустить его ... Я оставлю читателю в качестве упражнения добавление дополнительных битов, чтобы он запускался как сервис, и предотвращал одновременное выполнение нескольких копий.

#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
use POSIX qw(strftime);

chdir($ENV{STAMP_DIR} || '/home/me/dir0')
    or die "Cannot get to stamp dir: $!\n";

while (1) {
    my $stamp = strftime("_%Y%m%d%H%M%S", localtime);
    for my $orig ( grep { $_ !~ /_\d{14}$/ } read_dir('.') ) {
        rename $orig, "$orig$stamp"
            or warn "Failed to rename $orig to $orig$stamp: $!\n";
    }
    sleep($ENV{STAMP_DELAY} || 10);
}

И вот оно работает:

$ STAMP_DIR=/home/me/stamps STAMP_DELAY=1 ./t.pl &
[1] 6989
$ cd stamps/
$ ls
$ touch hello
$ ls
hello_20110704033253
$ touch world
$ ls
hello_20110704033253
world_20110704033258
$ touch hello
$ ls
hello_20110704033253
hello_20110704033302
world_20110704033258