从Perl中的字符串中删除文件扩展名和路径

为了方便地获取给定完整路径的文件的基名称,我建议 File::Basename 模块,它是核心的一部分。

要对文件扩展名进行启发式处理,我将使用类似于

(my $without_extension = $basename) =~ s/\.[^.]+$//;

尽管其他人也做出了回应,但在根据Rafl的回答读了一点basename之后:

($file,$dir,$ext) = fileparse($fullname, qr/\.[^.]*/);
# dir="/usr/local/src/" file="perl-5.6.1.tar" ext=".gz"

似乎解决了这个问题。

与其他解决方案相比,是否存在与此相关的问题?

您可以通过简单的替换来完成此操作:

$name =~ s{.*/}{};      # removes path  
$name =~ s{\.[^.]+$}{}; # removes extension

这个例子假设 / 是路径分隔符。