我想获取一个没有其路径的文件名(如果它是字符串的一部分)和扩展名。
例如：
/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。
为了方便地获取一个文件的基本名称给一个完整的路径，我建议
File::Basename模块，这是核心的一部分。
要做文件扩展名的启发式，我会去一个正则表达式
(my $without_extension = $basename) =~ s/\.[^.]+$//;
