5 lines
179 B
Perl
5 lines
179 B
Perl
|
my @paths = qw(/home/user1/tmp/coverage/test
|
||
|
|
/home/user1/tmp/covert/operator
|
||
|
|
/home/user1/tmp/coven/members);
|
||
|
|
print common_prefix('/', @paths), "\n";
|