現在のソースファイルを持つディレクトリを、mod_perlのPerlで `use`と` require`文で検索する標準的な方法はありますか？

Question

は私が

BEGIN { 
    unshift @INC, 'current_path_string'; 
} 

を試みたが、それだけで、それが検索されないです require use、のために働きます。

回避策はありますか？

Answer 1

mod_perlで実行すると、サーバーが起動すると@INCはフリーズし、更新できません。 @INCを一時的に変更する唯一の機会は、スクリプトまたはモジュールが初めて読み込まれ、コンパイルされることです。その後、その値は元の値にリセットされます。 @INCを永久に変更する唯一の方法は、Apacheの起動時に変更することです。サーバーの起動時に@INCを変更する

二つの方法：設定ファイルで

• 。例えばPerlSetEnv PERL5LIB /home/httpd/perl

• スタートアップファイルで@INCを直接変更し、スタートアップファイルを設定ファイルから読み込みます。それはuseのために動作するかどうか、それはrequireのために働くよう

も参照してください@INC and mod_perl

Answer 2

use Foo; 

は

BEGIN { 
    require Foo; 
    import Foo; 
} 

と同じです。

Answer 3

はい、起動スクリプトで@INCを更新できます。しかし、あなたのモジュールで以下のコードを使用すると、簡単に動作します：

use lib '/app/my-libs'; 

少なくとも - 私のCGIアプリケーションはmod_perlで動作しています。