在Perl中查找相对路径

Question

我在perl模块中有以下代码，

package Foo;
our $pathToScript = "/home/Lucas/project841/python_script.py";

同一文件目录中的其他模块经常通过以下方式调用它

$output = `$Foo::pathToScript`;
# etc

我想删除实际路径的硬编码，并使用相对路径，例如。 ./python_script.py从其他模块调用脚本。

理想的方法是什么？

Answer 1

您说过，“经常”从Python脚本所在的目录中调用Perl脚本，而不是“始终”调用。 如果删除绝对路径，则需要将其“经常”更改为“始终”，只需将$pathToScript更改$pathToScript Python脚本名称（无路径）。

您还可以考虑设置环境PATH（在Perl脚本中），以便始终找到Python脚本（在$pathToScript没有完整路径），无论用户从何处运行或Perl脚本位于何处。