Como adicionar a% ENV mais variáveis para um script Perl particular

Question

Eu quero adicionar mais variáveis para% ENV visíveis apenas para um script
É correto ou temos outras maneiras?
    $ ENV {IM_ROOT} = $ TC_ROOT;
    $ ENV {IM_DATA} | = $ TC_DATA;

    

Answer 1

Você pode atribuir como um hash, um tipo de acréscimo:

# 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