New fancy infrastructure: downloader, inotify watcher, submitter

[aoc.git] / 2022 / run

diff --git a/2022/run b/2022/run
new file mode 100755 (executable)
index 0000000..40a45a6
--- /dev/null
+++ b/2022/run
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use v5.36;
+use warnings;
+use strict;
+
+use Time::HiRes qw(sleep);
+use Linux::Inotify2;
+use POSIX qw(strftime);
+use Mojo::File;
+
+use Y::AoC qw(grey red);
+
+my $cmd = shift;
+my $backup = "backup/$cmd";
+$cmd = "./$cmd" if $cmd !~ /\//;
+
+my $last_backup;
+while (1) {
+       my $b = "$backup-".strftime("%H-%M-%S", localtime(time));
+       system 'cp', $cmd, $b;
+       say grey("\nrunning $cmd @ARGV... ============================");
+       system $cmd, @ARGV;
+       if ($?) {
+               say grey("FAILED: $?");
+       } else {
+               say grey("finished OK");
+       }
+
+       my $inotify = Linux::Inotify2->new;
+       $inotify->watch($cmd, IN_MODIFY);
+       say grey("\nWaiting for modification of $cmd ...");
+       $inotify->read;
+       sleep 0.1;
+}