переменная среды Windows не установлена ​​при вызове из сценария Perl

Question

У меня есть пакетный скрипт setEnv.bat, который устанавливает переменные окружения, такие как TEST_ENV, true.

Я называю этот пакетный скрипт внутри сценария Perl, как:

my $batch_cmd = "setEnv.bat"; 
system($batch_cmd); 

Я запустить скрипт на Perl из командной строки. Значение setEnv.bat задает переменную окружения. После завершения сценария Perl, если я сделаю set TEST, выход будет

Переменная среды TEST не определена.

Это означает, что переменная окружения теряется при завершении пакетного скрипта и выполнении в сценарии Perl.

Как это решить?

Answer 1

Проблема в том, что системная команда выполнит первую команду в оболочке, вторую команду в другой оболочке и так далее. Это означает, что каждая оболочка будет иметь свою собственную среду и не будет «видеть» переменные среды других.

Если вы просто хотите быстро и грязный раствор, вы можете попытаться объединить команды с & &, что-то вроде:

system('setEnv.bat && doSomething.bat'); 

Это не идеально, но если вы не хотите тратить слишком много времени на нем он должен работать (BTW, & & должен работать как на Windows, так и на Unix).

Answer 2

Попробуйте с помощью модуля Windows, Perl ниже в сценарии Perl, чтобы установить переменные среды Windows:

Win32::AdminMisc::SetEnvVar 

Пример кода:

use Win32::AdminMisc; 

$name="Temp"; 
$val="C:/tmp"; 
SetEnvVar($name,$val); 

Это будет установить переменную окружения $ имя $ Вал, создавая $ name it, если этого не существует. Новое значение будет установлено глобально. Для получения дополнительной информации обратитесь к документации по SetEnvVar(). Книга «Win32 Perl Scripting: Руководство администратора» также ссылается на SetEnvVar().

HTH