Cambiar automáticamente el nombre de los archivos cuando se colocan en un directorio específico

¿Es posible cambiar automáticamente el nombre de un archivo cuando se coloca en un directorio específico?

Por ejemplo, tengo un directorio llamado "dir0". Muevo o copio un archivo llamado "archivo1" a "dir0". Luego, "archivo1" debería cambiar el nombre a "archivo1_ {marca de tiempo actual}"

Por lo general, haría esto mediante programación al momento de crear o mover el archivo, pero es posible activar un script cada vez que se crea o mueve un archivo a una carpeta incron. Configure su archivo de tabulación incrontab -econ una línea como esta, pero con sus rutas, por supuesto:

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

Luego, en /path/to/scriptescribir una acción de cambio de nombre rápido. Tenga en cuenta que la secuencia de comandos también se llamará para el nuevo archivo que cree, por lo que debe probar si el archivo ya se ha nombrado correctamente o no. En este ejemplo, verifica si el archivo tiene un número de diez dígitos durante segundos desde la época como la última parte del nombre del archivo, y si no lo tiene, lo agrega:

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

Editar: cuando escribí esto por primera vez, tenía poco tiempo y no podía encontrar la manera de hacer bashque el patrón coincida aquí. Gilles señaló cómo hacer esto sin invocar grep usando la coincidencia de ERE en bash:

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

Creo que inotifyes una herramienta que podría usarse en este caso. En Debian hay una herramienta inoticomingpara ejecutar acciones en la creación de archivos:

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

{} será reemplazado con el nombre del archivo.

El comando que proporcioné no está completo: causa un bucle porque cuando se cambie el nombre del archivo se reconocerá como nuevo, por lo que se volverá a mveditar y así sucesivamente. Para evitar esto, puede usar la --suffixopción si sabe qué sufijo estará en el archivo antes de cambiar el nombre.

Podrías tomar un script como este y ejecutarlo ... Lo dejaré como un ejercicio para que el lector agregue los bits adicionales para que comience como un servicio y evite que se ejecuten varias copias a la vez.

#!/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);
}

Y aquí está funcionando:

$ 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