在Perl中传播相对路径

Question

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

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

它经常被同一文件目录中的其他模块通过

调用

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

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

理想的方式是什么？

Answer 1

你说你的Perl脚本经常＆＃34;经常＆＃34;从Python脚本所在的同一目录调用，而不是＆＃34;始终＆＃34;。如果删除绝对路径，则需要经常更改＆＃34;＆＃34; to＆＃34; always＆＃34;，只需将$pathToScript更改为Python脚本名称（无路径）。

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