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

发布时间：2020-12-15 23:23:52 所属栏目：大数据来源：网络整理

导读：我正在尝试使用Perl脚本在我们拥有的工具(wpj)中添加某些目录.直接命令看起来像 $wpj add path/to/desired/library makefile.wpj 我想做一个脚本来自动执行此操作,因为必须完成很多这样的操作.但是,设置一组非常特殊的环境变量来制作’wpj’.如果我用Perl的

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

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

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

$command = "wpj add library pathtofile.wpj pathtoadd";
print $command."n";
$result = `$command`;
print "->".$result."n";

为此我得到了

wpj: not found

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

解决方法

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

use Env qw(@PATH);

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

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

The official manual这个模块.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!