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

rochister

UID: 23189
帖子: 2
积分: 4
在线时间: 10 分钟

1^# 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

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

2^# Nosferatu 发表于 2008-01-11 17:32

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

rochister

UID: 23189
帖子: 2
积分: 4
在线时间: 10 分钟

3^# rochister 发表于 2008-01-11 17:41

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

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

4^# freeand 发表于 2008-01-11 18:13

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

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

5^# FinalBSD 发表于 2008-01-11 18:30

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

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

6^# Nosferatu 发表于 2008-01-11 18:51

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

rochister

UID: 23189
帖子: 2
积分: 4
在线时间: 10 分钟

7^# rochister 发表于 2008-01-14 10:09

谢谢楼上各位

push (@INC, &quot;/export/home/jacky/ &quot;)问题

push (@INC, &quot;/export/home/jacky/ &quot;)问题

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

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