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)情形下如何执行多个命令的方法,有人知道不?

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...