Perl修剪路径正则表达式

Question

所以我正在修剪一条看起来像这样的路径:

E:\folder\00000000\file.txt

我想替换这个:

E:\folder\

我无法想出正则表达式.

之前我确实问过这个问题但得到了混合的订单.

Answer 1

用正则表达操纵路径很糟糕.

use Path::Class::File qw();
my $path = Path::Class::File->new_foreign('Win32', 'E:\\folder\\00000000\\file.txt');
# E:\folder\00000000\file.txt
my $base = $path->parent->parent;
# E:\folder