Perlで絶対パスを取得する

Question

Perlでファイルの絶対パスを取得したいとします。ファイルは/a/b/c/file.txtにあります。ですから、/a/b/c/を取得したいと思います。実際の作業ディレクトリは/a/b/なので、現時点でCwd::cwd()を使用することはできません。 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で構成され、することができます - （マイナス）