Si puede guardar un archivo de marca de tiempo entre ejecuciones, puede verificar la fecha en lugar de confiar únicamente en la fecha actual.
Si su comando find admite valores fraccionarios para -mtime
(o tiene -mmin
) ( GNU find tiene ambos , POSIX no parece requerir ninguno de los dos ), podría 'estrangular' los trabajos cron con find y touch .
O bien, si tiene un comando stat que admite mostrar fechas de archivo como "segundos desde la época" (por ejemplo, stat de Gnu coreutils , también otras implementaciones), puede hacer su propia comparación usando date , stat y los operadores de comparación del shell (junto con con toque para actualizar un archivo de marca de tiempo). También puede usar ls en lugar de stat si puede formatear (por ejemplo, ls de GNU fileutils ).
A continuación se muestra un programa Perl (lo llamé n-hours-ago
) que actualiza un archivo de marca de tiempo y se cierra con éxito si la marca de tiempo original era lo suficientemente antigua. Su texto de uso muestra cómo usarlo en una entrada crontab para acelerar un trabajo cron. También describe los ajustes para el "horario de verano" y cómo manejar las marcas de tiempo "tardías" de las ejecuciones anteriores.
#!/usr/bin/perl
use warnings;
use strict;
sub usage {
printf STDERR <<EOU, $0;
usage: %s <hours> <file>
If entry at pathname <file> was modified at least <hours> hours
ago, update its modification time and exit with an exit code of
0. Otherwise exit with a non-zero exit code.
This command can be used to throttle crontab entries to periods
that are not directly supported by cron.
34 2 * * * /path/to/n-hours-ago 502.9 /path/to/timestamp && command
If the period between checks is more than one "day", you might
want to decrease your <hours> by 1 to account for short "days"
due "daylight savings". As long as you only attempt to run it at
most once an hour the adjustment will not affect your schedule.
If there is a chance that the last successful run might have
been launched later "than usual" (maybe due to high system
load), you might want to decrease your <hours> a bit more.
Subtract 0.1 to account for up to 6m delay. Subtract 0.02 to
account for up to 1m12s delay. If you want "every other day" you
might use <hours> of 47.9 or 47.98 instead of 48.
You will want to combine the two reductions to accomodate the
situation where the previous successful run was delayed a bit,
it occured before a "jump forward" event, and the current date
is after the "jump forward" event.
EOU
}
if (@ARGV != 2) { usage; die "incorrect number of arguments" }
my $hours = shift;
my $file = shift;
if (-e $file) {
exit 1 if ((-M $file) * 24 < $hours);
} else {
open my $fh, '>', $file or die "unable to create $file";
close $fh;
}
utime undef, undef, $file or die "unable to update timestamp of $file";
exit 0;