如何像shell中. ./.profile那样一次设置多个环境变量？

tian_jut

thanks!!!

apile

一种作法...
用一个env.pl
然後每次
BEGIN{
  do env.pl;
}

tian_jut

sorry,我查了doc，还是不太明白。
我的原意是把shell脚本改用perl写，原来在shell中有类似. ./.profile一行，
我怎么在perl中做到这个？试的直接system调不行。。

apile

`source /etc/profile `;
`. /etc/profile`;
try try看..

tian_jut

试了不行。。。用了一个笨办法，好在不是很麻烦：
open(NEWENV, ". $env_path/setup/setup_env.sh && env|");
while (<NEWENV>){
        if (/(\w+)=(.*)/){
                print "entry $1 value $2\n";
                $ENV{$1}="$2";
        }
}
close NEWENV;