環境変数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 

注

• 単一引用符（またはバックスラッシュ）は、それ自体を補間するperlを防止するecho $X1に必要とされます。
• あなたは特別な文字がsetenv X1 /p/fsdにありませんのでhttp://www.perlmonks.org/?node_id=684685

Answer 2

を参照して、親シェルのENVを変更することはできません、

system("setenv X1 /p/fsd") 

がありますので、それが失敗しています

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

に相当しますプログラム名はsetenvです。この最適化が存在しない場合は、別の結果が得られます*。その場合には、

system("setenv X1 /p/fsd") 

はshは何setenvコマンドを持っていないので、どちらかを動作しません

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

に相当します。だからあなたは次の代わりに以下を実行することができます：

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

しかしそれは無意味です。シェルを作成し、その変数の1つを設定します。シェルは終了し、その変数は存在しなくなります。あなたはPerlとその子から見たenv VARを設定したい場合は

、単に は

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

---

* —最適化されたコードが最適化されていないと異なる動作べきではありません

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

または

使用しかし、最適化はあなたが得るエラーを変更するだけなので、それは受け入れられます。

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プロセスとすべての子プロセスの環境変数を削除します。しかし環境変数は親プロセスのために設定されます。