获取活动perl文件的目录

Question

我使用perl并将文件保存在目录中,如下所示:

/root/dir_1/dir_2/dir_3/dir_4/perl_file.pl

我在perl文件中尝试做的是获取字符串/root ... dir_4/或者只是dir_4/这样我可以使用它来创建另一个目录(我可以使用一个特定的模式来创建新目录).

我一直在看File :: Copy和File :: Basename,它们似乎要求你指定路径,但我希望我的路径可以根据运行的文件变化.它似乎很简单,可能是我只是忽略了,但这可能吗？

在伪代码中,我正在寻找类似的东西 my $dir = UpOneDirectory(thisperlfile) or FilePath(thisperlfile)

Answer 1

use FindBin qw( $RealBin );
say $RealBin;