将文件放在特定目录中时自动重命名文件

将文件放在特定目录中时，是否可以自动重命名？

例如，我有一个名为“ 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这里进行模式匹配。Gilles指出了如何在不使用bash中的ERE匹配调用grep的情况下执行此操作：

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

我认为这inotify是在这种情况下可以使用的工具。在Debian中，有inoticoming用于执行文件创建操作的工具：

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

{} 将被替换为文件名。

我提供的命令不完整-导致循环，因为当文件被重命名时，它将被识别为新文件，因此将mv再次被ed等。为了避免这种情况，--suffix如果知道重命名之前文件中将包含什么后缀，则可以使用option。

您可以只使用一个这样的脚本并运行它...我将把它作为练习，让读者添加一些额外的内容以使其作为服务启动，并防止同时运行多个副本。

#!/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