push (@INC, "/export/home/jacky/ ")问题

rochister

我在目录/export/home/jacky/下创建了Cocoa.pm模块, 然后在目录/export/home/jacky/perl/中编写脚本create_applet来调用Cocoa.pm中的函数，如下：

#!/usr/bin/perl -w
push(@INC, "/export/home/jacky");
use Cocoa;

my ($cup);

$cup = new Cocoa;
$cup->setImports('java.io.InputStream','java.net.*');
$cup->closeMain();


结果总是无法编译通过，如下：
Can't locate Cocoa.pm in @INC (@INC contains: /usr/perl5/5.6.1/lib/sun4-solaris-64int /usr/perl5/5.6.1/lib /usr/perl5/site_perl/5.6.1/sun4-solaris-64int /usr/perl5/site_perl/5.6.1 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.6.1/sun4-solaris-64int /usr/perl5/vendor_perl/5.6.1 /usr/perl5/vendor_perl .) at ./create_applet line 4.

但将Cocoa.pm复制到目录/export/home/jacky/perl/是就编译成功。似乎push根本没起作用！
请高手指教，谢谢！

Nosferatu

use lib ('Cocoa', "/export/home/jacky");

rochister

谢谢Nosferatu ！
可是我还是有点不明白啊，为什么push @INC不行呢? “@INC”的作用不就是用来指定模块的寻找路径的吗？

freeand

BEGIN {unshift (@INC, "/export/home/jacky");}

FinalBSD

perl -I
应该是编译时就会检查吧，编译时还没进入到push阶段也许。。

[ 本帖最后由 FinalBSD 于 2008-1-11 18:31 编辑 ]

Nosferatu

放到BEGIN块里是可以，但是use lib更简洁，可读性也更好

rochister

谢谢楼上各位