blob: 634b61c6f82ed0ab25184aab2c122733ac609eff (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
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/*>;
|