用Perl获取绝对路径

Question

我想用Perl获取文件的绝对路径。该文件位于/a/b/c/file.txt。所以，我想得到/a/b/c/。目前我不能使用Cwd::cwd()，因为实际的工作目录是/a/b/。这不是一个错误，因为Perl脚本是从/a/b/调用的。

那么，有没有一个Perl函数来捕捉，或者我必须使用正则表达式来找到它？

Answer 1

use File::Basename; 
my $path = "https://stackoverflow.com/a/b/c/file.txt"; 
my ($filename, $dir) = fileparse($path); 

Answer 2

如果文件名是没有特殊字符，并且被格式化为name.ext，您可以使用正则表达式像这样的：

(.*\/)[\w-]+\.[\w]{3} 

文件名可以由包括AZ，az，0-9和 - （减号）