12 lines
254 B
Perl
12 lines
254 B
Perl
use List::Util qw(first);
|
|
|
|
sub common_prefix {
|
|
my ($sep, @paths) = @_;
|
|
my %prefixes;
|
|
|
|
for (@paths) {
|
|
do { ++$prefixes{$_} } while s/$sep [^$sep]* $//x
|
|
}
|
|
|
|
return first { $prefixes{$_} == @paths } reverse sort keys %prefixes;
|
|
}
|