ユーザー指定のライブラリのディレクトリを動的に設定する方法

Question

私はいくつかの作業を行うために互いに相互接続するいくつかのかなり複雑なライブラリを用意しています。クランチ数。高性能クラスタ上で当社のサーバー上で

、ラインがある...

use lib '/home/ourgroup/lib' ; 
use HomeGrown::Code ':all' ; 

が、それはより多くのモジュールを使用するプログラムのために

use lib '/scratch/ourgroup/lib' ; 
use HomeGrown::Code ':all' ; 

...のようなものだ、それはですかなり簡単に設定することができますが、コードベースでサーバー固有の変更を加える必要はありません。私はむしろディレクトリをそのままコピーすることができます。だから、どうやってこのようなハードコーディングをせずに私のライブラリディレクトリを使用するようモジュールに指示するのですか？

Answer 1

ここでは何が起こっているのですか。

use lib '/home/ourgroup/lib' ; 
use lib '/scratch/ourgroup/lib' ; 

/home/ourgroup/libが1台のマシンに存在しない場合は、そのようにしてください。もし/ scratch/ourgroup/libが他のものに存在しないなら、それもそうです。それは不平を言っていないので、それは私たちがやっていることです。

Answer 2

通常、これは、異なるマシンで異なる環境変数PERL5LIBを設定することで実行されます。はい、純粋なPerlソリューションではありませんが、デプロイメントごとに1回ではなく、サーバーごとに1回だけ実行する必要があります。

Answer 3

また、環境を検出し、正しいディレクトリを含むモジュールを持つこともできます。

ただやる、それを使用する：

use VarLogRant::FindLibs; 
use Stuff; 

とモジュールを書くために：

package VarLogRant::Findlibs; 

sub select_lib_dirs { 

    my @libs; 

    push @libs, '/home/ourgroup/libs' if need_home(); 
    push @libs, '/scratch/ourgroup/libs' if need_scratch(); 

    # Any other magical logic you want. 

} 

# It is critical that use lib comes AFTER the functions are defined. 
use lib select_lib_dirs(); 

1;