我如何做一个Perl正则表达式来匹配反斜杠之后和某个文件扩展名之前的所有内容？

方法 1（使用正则表达式）

#!/usr/bin/perl
use strict;
use warnings;
my $path = "..directorysomefile.xml";

if(my ($before) = $path =~ m{^(.*).xml$}) {
    print "[$before] match!n";
} else {
    print "no match!n";
};

输出：

[..directorysomefile] match!

方法 2（使用File::Spec::Win32）

该方法利用每个 Perl 发行版附带的内置模块 File::Spec。

这可能比第一种方法更好，因为它是处理路径的专用模块。

内置模块File::Basename也值得一看。

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec::Win32;

my $path = "..directorysomefile.xml";
my ($volume,$directories,$file) = File::Spec::Win32->splitpath($path);

print "vol=$volumen";
print "dirs=$directoriesn";
print "file=$filen";

输出：

vol=
dirs=..directory
file=somefile.xml