Настройка переменной окружения с использованием perl

Question

Я пытаюсь установить переменную среды с помощью Perl. Он должен экспортировать эту переменную за пределами (в текущей оболочке) не только в сценарии.

Я пробовал:

`setenv X1 /p/fsd` 

system("setenv X1 /p/fsd") == 0 or die "failed:$?" 

system command "setenv X1 /p/fsd" failed: -1 

$ENV{"X1"} = "/p/fsd"; 

Ничто, кажется, работает.

Если это важно, я пользуюсь TCSH.

Answer 1

$ENV{"X1"} = "/p/fsd"; 

- правильный путь.

испытания в perlconsole:

Perl> $ENV{X1} = "/p/fsd"; 
/p/fsd 

Perl> system('echo $X1'); 
/p/fsd 
0 

ПРИМЕЧАНИЕ

• одиночные кавычки (или backslashing) требуется на echo $X1 для предотвращения perl интерполировать он сам.
• вы не можете изменить ENV родительской оболочки, см http://www.perlmonks.org/?node_id=684685

Answer 2

Потому что нет никаких специальных символов в setenv X1 /p/fsd,

system("setenv X1 /p/fsd") 

эквивалентно

system("setenv", "X1", "/p/fsd") 

Это неисправного, потому что есть нет программы с именем setenv. Если эта оптимизация не существует, вы получаете другой результат *. В этом случае,

system("setenv X1 /p/fsd") 

будет эквивалентно

system("sh", "-c", "setenv X1 /p/fsd") 

Это не будет работать либо потому, что sh не имеет setenv команду. Таким образом, вы можете использовать следующее:

system("tcsh", "-c", "setenv X1 /p/fsd") 

Но это было бы бессмысленно. Вы должны создать оболочку, установить одну из ее переменных. Затем оболочка выходит и ее переменные перестают существовать.

Если вы хотите установить ENV вар видели на Perl и его детей, просто использовать

$ENV{X1} = "/p/fsd";   # Until end of program 

или

local $ENV{X1} = "/p/fsd"; # Until end of scope 

---

* — Оптимизированный код не должен вести себя иначе, чем unoptimised кода, но поскольку оптимизация просто изменяет какую ошибку вы получаете, это приемлемо.

Answer 3

Как уже упоминалось в других ответах, вы не можете установить переменную среды в родительском элементе из дочернего элемента. Однако вы можете сделать что-то сложное в perl, а затем передать конечный результат обратно в устанавливаемую оболочку.Например, в tcsh:

eval `perl -le 'print q(setenv X1 /p/fsd)'` 

Вы можете сделать это чувствовать себя немного более прозрачной, например, с

alias x1.pl 'eval `x1.pl`' 

Answer 4

Не менее важно знать, как установить переменную ENV, как удалить его:

delete $ENV{"X1"}; 

Это удалит переменную окружения для процесса perl и любых процессов с детьми. Но переменная среды по-прежнему будет установлена ​​для родительского процесса.