From 09d92a50656a0059a2159bde1d7785a49424af03 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 22 Jul 2021 17:46:43 -0400
Subject: add script

---
 bin/files-between | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 bin/files-between

diff --git a/bin/files-between b/bin/files-between
new file mode 100755
index 0000000..634b61c
--- /dev/null
+++ b/bin/files-between
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+
+use File::Basename;
+
+my $first = $ARGV[0];
+my $second = $ARGV[1];
+
+my $dirname = dirname($first);
+die unless $dirname eq dirname($second);
+
+say for grep { /^\Q$first\E$/../^\Q$second\E$/ } sort <$dirname/*>;
-- 
cgit v1.2.3