diff options
Diffstat (limited to 'bin/files-between')
-rwxr-xr-x | bin/files-between | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/bin/files-between b/bin/files-between deleted file mode 100755 index 634b61c..0000000 --- a/bin/files-between +++ /dev/null @@ -1,14 +0,0 @@ -#!/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/*>; |