diff options
| author | Jesse Luehrs <doy@tozt.net> | 2023-10-08 12:09:20 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2023-10-08 12:59:10 -0400 |
| commit | 49570c8dd03448240897b37b68567352b790f16f (patch) | |
| tree | 6c192a52046d5d0dd1b84a838befd8e777cfeafb /local/.bin/files-between | |
| parent | 66939c71da756c1d9e07a88a4a8ea2a018650060 (diff) | |
| download | conf-49570c8dd03448240897b37b68567352b790f16f.tar.gz conf-49570c8dd03448240897b37b68567352b790f16f.zip | |
convert to stow
Diffstat (limited to 'local/.bin/files-between')
| -rwxr-xr-x | local/.bin/files-between | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/local/.bin/files-between b/local/.bin/files-between new file mode 100755 index 0000000..634b61c --- /dev/null +++ b/local/.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/*>; |