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

Question

是否有某些函数返回Perl文件的父目录？

Answer 1

如果您有路径名，则可以使用File::Basename中的dirname功能。

 use File::Basename;
 my $directory = dirname( $path );

您有什么输入？

Answer 2

你可以使用上面最精彩的brian方法，如果是$directory eq“。”然后替换“。”与您的工作目录。

Answer 3

另请注意Path::Class，这样可以理解路径。