如何在Perl中找到文件的父目录?

Zer*_*obu 9 directory perl

是否有一些函数返回Perl中文件的父目录?

bri*_*foy 10

如果您有路径名,则可以使用File :: Basename中dirname函数.

 use File::Basename;
 my $directory = dirname( $path );
Run Code Online (Sandbox Code Playgroud)

你有什么输入?