하나의 특정 Perl 스크립트에 대해 %ENV에 더 많은 변수를 추가하는 방법

Question

하나의 스크립트에만 표시되는 %ENV에 더 많은 변수를 추가하고 싶습니다.
맞습니까? 아니면 다른 방법이 있습니까?
$ENV{IM_ROOT} = $TC_ROOT;
$ENV{IM_DATA} |= $TC_DATA;

Answer 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