Может ли кто-нибудь объяснить использование модуля Perl Shell :: Source или модуля Shell :: GetEnv?

Я новичок в perl. Я хочу знать, как пользоваться этим модулем. Я где-то читал об этом модуле, но не понимаю, как его используют.

На самом деле у меня есть файл, который содержит некоторые пути к среде, которые необходимо установить при запуске некоторого теста (скажем, имя файла SET_ENV_TOOL1.csh или SET_ENV_TOOL1.sh) с определенными инструментами (скажем, TOOL1, TOOL2 и т. Д.)

SET_ENV_TOOL1.sh file conatins:
setenv UVM_HOME /u/tools/digital/uvm/uvm-1.1a
setenv VIPP_HOME /u/tools/digital/vipcat_11.30-s012-22-05-2012
setenv VIP_AXI_PATH ${VIPP_HOME}/vips/amba_axi/vr_axi/sv/ #etc.(almost 10-15 paths are need to be set like this)

Каждый раз при запуске теста инструмент может изменяться, поэтому для запуска этого инструмента также необходимо указать пути среды.

Мне нужно создать сценарий Perl, который устанавливает эти пути перед запуском теста. Этот тест запустит команду, и эта команда будет использовать эти пути среды.

Любая помощь будет принята с благодарностью. Спасибо !!


person Mak_Thareja    schedule 28.06.2013    source источник


Ответы (1)


Чтение и изменение переменных среды встроено в Perl, вам не нужны упомянутые модули.

$ENV{UVM_HOME} = '/u/tools/digital/uvm/uvm-1.1a';
$ENV{VIPP_HOME} = '/u/tools/digital/vipcat_11.30-s012-22-05-2012';
$ENV{VIP_AXI_PATH} = "$ENV{VIPP_HOME}/vips/amba_axi/vr_axi/sv/";
person daxim    schedule 28.06.2013