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