Perlスクリプト内でBash環境変数を再ロードするには？

Question

Perlスクリプト内からBash環境変数（Bashシェルから~/.bashrcを入手することで定義）をロードする方法はありますか？具体的には、Perlスクリプトの呼び出し元がbashプロセスの子でない場合に、PERL5LIB環境変数をリロードすることに興味があります。その場合、$ENV{PERL5LIB}は存在しないため、ホームディレクトリにインストールしたモジュールを使用できなくなります。

オプションを使用してbashの下に自分自身を再実行することが最初の試みです。これは~/.bash_profileをロードし、そのファイルをロードして~/.bashrcに設定しました。

#! /usr/bin/env perl 

use strict; 
use warnings; 

if (!exists $ENV{PERL5LIB}) {  
    exec 'bash', '-lc', $0, @ARGV; 
} 
else { 
    # Main program starts here.. 
} 

しかし、これはPERL5LIBは~/.bashrcに定義されていません（予期しない）場合の無限ループに入ることができます。

脚注：Google Chromeの拡張APIを使用してgoogle-chromeプロセスから呼び出されるネイティブホストを記述しようとしたとき

^{は、[1]この特定のケースでは私のために発生しました。}

Answer 1

#! /usr/bin/env perl 

use strict; 
use warnings; 

BEGIN { 
    if (!exists($ENV{PERL5LIB})) {  
     if (!@ARGV || $ARGV[0] ne '--no-restart') { 
      exec('bash', '-lc', '"$@"', $0, $^X, $0, '--no-restart', @ARGV); 
     } 
    } 

    if (@ARGV && $ARGV[0] eq '--no-restart') { 
     shift(@ARGV); 
    } 
} 

... 

よう

何か（もちろん、Getoptの::ロングを使用したり、いくつかの-そのようなものが良いでしょう。）

これはあなたのスペックを満たしているが、必要に応じてバイパスを提供するだけではなく、 。

つまり、全体のコンセプトには欠陥があります。ほとんどの人はPERL5LIBを使用すべきではありません。不適切に構成されたシステム（PERL5LIBを必要とするが、設定が必要なときには設定されていないシステム）を修正するのはあなたの仕事ではありません。代わりに、fix your environment。

Answer 2

Env::Modifyシェルスクリプトから環境を変更することができます。

use Env::Modify 'source'; 

# BEGIN { ??? 
if (!exists($ENV{PERL5LIB})) { 
    source("$ENV{HOME}/.bashrc"); 
    die "PERL5LIB not in .bashrc" unless $ENV{PERL5LIB}; 
    exec($^X, $0, @ARGV);  # restart 
}