2022/run

   1 #!/usr/bin/perl
   2
   3 use v5.36;
   4 use warnings;
   5 use strict;
   6
   7 use Time::HiRes qw(sleep);
   8 use Linux::Inotify2;
   9 use POSIX qw(strftime);
  10 use Mojo::File;
  11
  12 use Y::AoC qw(grey red);
  13
  14 my $cmd = shift;
  15 my $backup = "backup/$cmd";
  16 $cmd = "./$cmd" if $cmd !~ /\//;
  17
  18 my $last_backup;
  19 while (1) {
  20         my $b = "$backup-".strftime("%H-%M-%S", localtime(time));
  21         system 'cp', $cmd, $b;
  22         say grey("\nrunning $cmd @ARGV... ============================");
  23         system $cmd, @ARGV;
  24         if ($?) {
  25                 say grey("FAILED: $?");
  26         } else {
  27                 say grey("finished OK");
  28         }
  29
  30         my $inotify = Linux::Inotify2->new;
  31         $inotify->watch($cmd, IN_MODIFY);
  32         say grey("\nWaiting for modification of $cmd ...");
  33         $inotify->read;
  34         sleep 0.1;
  35 }