如何将路径拆分为特定层次结构

Question

我想使用Perl来分割路径

funit/pipe/str/str32/gt/split

直到

funit/pipe/str/str32/gt

使用正则表达式。

Answer 1

看起来你只想要父目录的路径;是对的吗？我不打电话给它＆＃34;分裂＆＃34;路径

使用正则表达式模式的限制是真的吗，还是只是认为这是最好的方法？

这是一个使用Path::Tiny来做你要求的程序

use strict;
use warnings 'all';
use feature 'say';

use Path::Tiny;

my $path = Path::Tiny->new('funit/pipe/str/str32/gt/split');

say $path;
say $path->parent;

输出

funit/pipe/str/str32/gt/split
funit/pipe/str/str32/gt