免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2183 | 回复: 3
打印 上一主题 下一主题

请教高手解答一个perl问题 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2008-03-13 18:20 |只看该作者 |倒序浏览
三个模块以及文件如下


/lib/API.pm
===============================
package Bastille::API;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw /getGlobal/;
Sub getGlobal{
         return “test”;
}

1;



/lib/TestAPI.pm
===============================
package Bastille::TestAPI;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw / B_TODOFlags /;
use Bastille::API;                                

Sub B_TODOFlags {
         my $var = &getGlobal();
}

1;



/tmp/main.pl
===============================
#!/usr/bin/perl
use lib ‘/lib’;

use  Bastille::TestAPI;
my $var = &B_TODOFlags;
print $var, "\n";


# ./main.pl
Can't locate Bastille/TestAPI.pm in @INC (@INC contains: /tmp /opt/perl_32/lib/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/5.8.3 /opt/perl_32/lib/site_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/site_perl/5.8.3 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/vendor_perl/5.8.3 /opt/perl_32/lib/vendor_perl .) at ./main.pl line 4.
BEGIN failed--compilation aborted at ./main.pl line 4.


按照programming perl上说, 我应该把API.pm 和TestAPI.pm放到/lib/Bastille目录下才行, 因为perl会将::解释为/,  从而会去/lib/Bastille/下寻找模块。
但是我看到我们项目里的没有根本没有Bastille这个目录程序也能运行。  不知道有没有高人知道, 如何可以达到这样的效果。

论坛徽章:
0
2 [报告]
发表于 2008-03-13 19:13 |只看该作者
原帖由 wyqler 于 2008-3-13 18:20 发表
# ./main.pl
Can't locate Bastille/TestAPI.pm in @INC (@INC contains: /tmp /opt/perl_32/lib/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/5.8.3 /opt/perl_32/lib/site_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/site_perl/5.8.3 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/vendor_perl/5.8.3 /opt/perl_32/lib/vendor_perl .) at ./main.pl line 4.
BEGIN failed--compilation aborted at ./main.pl line 4.


没有运行楼主的代码.但是你的错误提示证明,你这样做确实是不可行的.

楼主按照书上的介绍,在lib下建立一个Bastille目录试一下看看.
如果程序运行成功了,你的目的就达到了.
这个内容还是应该以书为准.

做项目为了全盘考虑可能会有其他的设置.
所以没有找到并不代表项目本身没有其他设置.

论坛徽章:
0
3 [报告]
发表于 2008-03-13 22:34 |只看该作者
你可以试试这个小程序先:

perl -e 'print $_ . "\n" for @INC;'

它将输出 @INC 数组的所有内容。@INC数组就是你在use lib时,perl寻找的路径。
只要其中的某个目录中包含了 Bastille 目录,use 就不会出错。

所以你的项目的 Bastille 目录不一定在/lib 下,有可能在其他的 @INC下。

论坛徽章:
0
4 [报告]
发表于 2008-03-17 17:53 |只看该作者

Perl "Use lib"

Got.  Use lib..
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP