min interval exec wrapper

example.md

$ min-interval-exec 5 date
Wed Mar 21 00:08:38 JST 2018
$ sleep 3
$ min-interval-exec 5 date
$ sleep 2
$ min-interval-exec 5 date
Wed Mar 21 00:08:44 JST 2018

min-interval-exec

#!/usr/bin/perl
use strict;
use File::stat;
use Digest::SHA qw/sha256_hex/;

my $tmp = $ENV{TMPDIR} || "/var/tmp";

my $interval = int(shift);
my @args = @ARGV;

my $key = sha256_hex(join("\0", $0, @args));
my $file = "$tmp/$key";
my $stat = stat($file);
if ($stat && $stat->mtime + $interval <= time || !$stat) {
    touch($file);
    exec @args;
}
exit 0;

sub touch {
    my $file = shift;
    open my $fh, ">", $file or die $!;
    print $fh scalar(localtime), "\n";
}