请教 如何集成 perl程序文件与 perl 包

wangrujun

比如 ，我有一个 main.pl ，它 use sub1.pm 这个包。

如果希望能够正常使用 sub1.pm，那么可以将 sub1.pm 放在 @INC变量所指定的目录。但是我的perl需要拷贝到其它机器，并且不合适放在目标机器的 /usr/local/perl5之类的@INC变量中。

如果将 main.pl 和 sub1.pm放在同一目录下，那么在此目录下工作时，可以找到 sub1.pm。但是如果在其它目录下，使用默认搜索路径时，就会找不到sub1.pm这个包。

我应该怎么样做，才能使 main.pl 可以使用 sub1.pm这个包

谢谢

怒剑狂啸

把sub1.pm与主程序放到一个目录下，在主程序开始加上下面的语句

1. 
   
2. BEGIN {
   
3.       push @INC,$& if ($0=~m#.+/#);
   
4. }
   
5. use sub1;
   

复制代码

[ 本帖最后由 怒剑狂啸 于 2006-1-18 15:59 编辑 ]

wangrujun

您的回答很精彩。

学到两招。第一个是 BEGIN块和END块的用法，第二个是 m#号的用法。

非常感谢。

兰花仙子

use lib qw(.);稍文雅点。

wangrujun

原帖由 兰花仙子 于 2006-1-18 19:51 发表
use lib qw(.);稍文雅点。

这个有点问题。

比如我的文件是 /sbin/test.pl ，运行/sbin/test.pl，您的方法没有效果。

Strange

如果是在mod_perl的环境下，怎么用啊？
修改@INC的话，因为$& 不一定有值mod_perl会报错
use lib的话，好像没用啊

gsging

原帖由 Strange 于 2006-2-24 10:10 发表
如果是在mod_perl的环境下，怎么用啊？
修改@INC的话，因为$& 不一定有值mod_perl会报错
use lib的话，好像没用啊

可以在httpd.conf中加入

1. 
   
2. <Perl>
   
3. use lib /path/to/your/modules;
   
4. </Perl>
   

复制代码

Strange

但是如果是虚拟空间上的呢？