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

Question

我想获取一个不带路径的文件名（如果它是字符串的一部分）和扩展名。

例如：

/path/to/file/fileName.txt     # results in "fileName"
fileName.txt                   # results in "fileName"
/path/to/file/file.with.periods.txt    # results in "file.with.periods" 

所以基本上，我想删除之前的所有内容，包括最后一个“/”（如果存在）以及最后一个“.”。以及其后的任何元字符。

很抱歉提出这样一个新手问题，但我是 perl 新手。

Answer 1

为了可移植地获取给定完整路径的文件的基本名称，我建议使用 File: :Basename模块，它是核心的一部分。

为了对文件扩展名进行启发式处理，我会使用正则表达式，例如

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

Answer 2

尽管其他人已经做出了回应，但在阅读了 rafl 的回答的基本名称后：

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

似乎可以用一行解决问题。

与其他解决方案相反，是否存在与此相关的任何问题？

Answer 3

假设路径分隔符是'/'，可以用一对替换：

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

您也可以将其写为单个替换：

$name =~ s{^.*/|\.[^.]+$}{}g;