如何为一个特定的 perl 脚本向 %ENV 添加更多变量

如何为一个特定的 perl 脚本向 %ENV 添加更多变量

我想向 %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

相关内容