13 lines
254 B
Perl
13 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;
|
||
|
|
}
|