Chinaunix

标题: push (@INC, "/export/home/jacky/ ")问题 [打印本页]

作者: rochister 时间: 2008-01-11 17:21
标题: push (@INC, "/export/home/jacky/ ")问题
我在目录/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 时间: 2008-01-11 17:32
use lib ('Cocoa', "/export/home/jacky");

作者: rochister 时间: 2008-01-11 17:41
谢谢Nosferatu ！

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

作者: freeand 时间: 2008-01-11 18:13
BEGIN {unshift (@INC, "/export/home/jacky");}

作者: FinalBSD 时间: 2008-01-11 18:30
perl -I

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

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

作者: Nosferatu 时间: 2008-01-11 18:51
放到BEGIN块里是可以，但是use lib更简洁，可读性也更好

作者: rochister 时间: 2008-01-14 10:09
谢谢楼上各位

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)