linux - Perl + 如何从系统中读取导出的变量 ( Linux )

Question

我的 Linux 机器中的 FT_DIR 导出变量是“:

# env | grep FT_DIR
FT_DIR=/opt/facebookDir2

或

echo $FT_DIR
/opt/facebookDir2

从 shell 脚本示例中读取 FT_DIR 导出变量很简单:

# more test.ksh 
#!/bin/ksh


echo $FT_DIR

运行脚本:

./test.ksh 
/opt/facebookDir2

但在 Perl 中情况不同

more test.pl 

#!/usr/bin/perl -w

my $FT_DIR = ` bash -c 'echo $FT_DIR' `  ;

print $FT_DIR;

运行脚本:

./test.pl
 Name "main::FT_DIR" used only once: possible typo at ./test.pl line 3.
 Use of uninitialized value in concatenation (.) or string at ./test.pl line 3.

为什么 Perl 脚本中的 FT_DIR 不是/opt/facebookDir2 值

如何在Perl中读取导出的变量FT_DIR？ ，需要在我的 Perl 脚本中修复什么

Answer 1

不需要调用 bash 来获取环境变量，perl 可以自己完成。

只需使用:

my $FT_DIR = $ENV{FT_DIR};