用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和 - （減號）