![如何为一个特定的 perl 脚本向 %ENV 添加更多变量](https://linux22.com/image/1520340/%E5%A6%82%E4%BD%95%E4%B8%BA%E4%B8%80%E4%B8%AA%E7%89%B9%E5%AE%9A%E7%9A%84%20perl%20%E8%84%9A%E6%9C%AC%E5%90%91%20%25ENV%20%E6%B7%BB%E5%8A%A0%E6%9B%B4%E5%A4%9A%E5%8F%98%E9%87%8F.png)
我想向 %ENV 添加更多仅对一个脚本可见的变量
这是正确的还是我们还有其他方法?
$ENV{IM_ROOT} = $TC_ROOT;
$ENV{IM_DATA} |= $TC_DATA;
答案1
您可以将其指定为哈希,类似于附加:
# cat fooenv.pl && ./fooenv.pl
#!/usr/bin/perl
%ENV = ( %ENV,
'XX' => 'foovar',
'YY' => 'barvar'
);
foreach $key (grep(/XX|YY/,keys(%ENV))){
printf "key=$key=%s\n",$ENV{$key};
}
key=YY=barvar
key=XX=foovar