perl实现设置环境变量并运行程序

  需求：perl脚本控制实验过程，由于不同的应用程序需要设置不同的实验环境，因此需要根据输入重置环境变量。环境变量的初始化方法为：source env.sh与source henv.sh，编译命令为$compile，执行命令为$run，要求必须在重置的环境变量里编译执行程序。

 

   在perl脚本里通过system调用系统调用实现，但是system都是单独的进程，一旦返回后，其建立的环境也会丢失，因此需要由system派生的进程同时执行建立环境、编译与运行工作（至于为什么perl不能将环境变量回传给父进程，可参考附录1）。因此需要将perl命令写成如下形式：

system("source $env.sh  && $compile && $run" );

 

 

  另外，source是shell内嵌命令，因此直接调用例如：

  system("source $env.sh")

  上述做法并不会真正改变system派生子进程的环境变量，必须通过在后面加&&或者显式直接调用shell命令才可以，正确做法如下所示：

 

1） system("source $env.sh &&  which gcc")，因为当进程找不到命令source时，第一次时并不会搜索相关指令，第二次则会。

2)system("/usr/bin/shell",  "-c","source $env.sh");

 

但是，我现在未找到在2）情形下如何执行多个命令的方法，有人知道不？