如何将调用环境正确导出到Perl的子shell中？

Question

我正在尝试使用Perl脚本在我们拥有的工具(wpj)中添加某些目录.直接命令看起来像

 $ wpj add path/to/desired/library makefile.wpj

我想做一个脚本来自动执行此操作,因为必须完成很多这样的操作.但是,设置一组非常特殊的环境变量来制作'wpj'.如果我用Perl的反引号调用wpj,则调用失败.你可以看到下面的代码

$command = "wpj add library path\\to\\file.wpj \\path\\to\\add";
print $command."\n";
$result = `$command`;
print "->".$result."\n";

为此我得到了

wpj: not found

但是,来自shell的相同调用成功.有些东西没有正确导出,请你给我一些关于如何将调用环境导出到backquotes创建的子shell中的建议？

Answer 1

检查PATH并根据需要修改其内容:

use Env qw(@PATH);

# check the PATH:
print join("\n", @PATH);

# modify its content:
push @PATH, "/usr/bin/wpj";