获取Perl中的当前工作目录路径

Question

我正在使用perl脚本位置$FindBin::RealBin.现在我有一个使用它的问题.我从一个Perl脚本调用Perl脚本.在调用者脚本中,$FindBin::RealBin工作正常,但在调用的Perl脚本中,它没有给出位置.我错过了什么吗？

Answer 1

这就是我经常使用的:

my ($vol,$script_path, $prog) = File::Spec->splitpath(File::Spec->rel2abs( __FILE__ ));

检查它是否适用于您的情况.如果将内部脚本称为shell调用,它应该可以工作.如果你打电话给我,我不知道它是否会奏效do.

一些关于此的读物:

请参阅如何获取正在执行的Perl脚本的完整路径？

FindBin :: Bin破了http://use.perl.org/~Aristotle/journal/33995(或谷歌缓存http://webcache.googleusercontent.com/search?q=cache:y-5OZsxdTT8J:use.perl .org /〜亚里士多德/ journal/33995)

File :: Basename http://perldoc.perl.org/File/Basename.html更成问题

希望能帮助到你