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

我在.bashrc文件中定义了一个路径（比如$ MYPAT），我想在perl脚本中使用它，这样在脚本内部我就可以编写open(IN, "<$MYPAT/dir1/..。我如何导入这个变量直接在我的脚本中使用它？将在bashrc中定义的路径导入到perl脚本中

我想这是张贴在这里相同的问题How to use aliases defined in .bashrc in shell script但适用于Perl。

谢谢！

2013-07-02 PGreen

假设$MYPAT是你的.bashrc中定义的一个环境变量，你可以在perl中使用特殊的%ENV散列来访问它，它包含你的进程的所有环境变量。请参阅perlvar中的%ENV。

my $path = $ENV{MYPAT};

此外，作为一个文体注：

所以不是

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

做出

open my $fh, '<', "$path/dir1/..." or die "yadda yadda";

2013-07-02 17:18:05 friedo

感谢您的建议，我会应用您的笔记。如果使用'打开我的$ fh，'<'，...'我应该改变'while（）{'to'while（<>）{'？ – PGreen

将其更改为'while（<$fh>）' – friedo

有这么多的模块，每一个工作，使之成为可能。我认为CPAN中的这个模块对你很有帮助，只需要通过一些文档。

Shell::Source

2013-07-10 05:31:23

回答