将bashrc中定义的路径导入perl脚本

Question

我在.bashrc文件中定义了一个路径（比如$ MYPAT），我想在perl脚本中使用它，所以在脚本中我只能写open(IN, "<$MYPAT/dir1/..。如何导入此变量以直接在我的脚本中使用它？

我猜这里发布的问题是同一个问题How to use aliases defined in .bashrc in shell script，但适用于perl。

谢谢！

Answer 1

假设{。1}}是.bashrc中定义的环境变量，您可以使用perl中的特殊$MYPAT哈希访问它，其中包含进程的所有环境变量。请参阅perlvar中的%ENV。

%ENV

另外，作为一种风格说明：

1. 您应该使用词法文件句柄而不是全局
2. 你应该使用open的三参数形式。

所以而不是

my $path = $ENV{MYPAT};

制作

open(IN, "<$path/dir1/...") 

Answer 2

每项工作都有很多模块可以实现。 我认为CPAN中的这个模块对你有帮助，只需要阅读一些文档。

Shell::Source