请教package的用法，谢谢

290702500

我想尝试下package的用法，

我有这么两个文件， /home/my/PERL/test.pm   和 /home/my/PERL/test.pl
test.pm 里面有一个myprint的sub函数， 在我的test.pl里面会调用myprint，

我的问题是，我已经在test.pl里面加了下面两行，为什么调用函数的时候还需要在mypirnt前面加上PERL::TEST呢？  希望指点，谢谢。

use lib "/hom/my/PERL/"
use PERL::TEST

PERL::TEST::myprint ;




test.pm 是下面这样的，

package PERL::TEST
sub myprint {
}

wenhq

myprint 在test.pl里有没有重新定义？如果没有那么应该可以不用些前缀的。

290702500

回复 2# wenhq


    谢谢，已经找到答案了，

需要在.pm的文件里面加上Exporter， 就可以不写前缀了。

mcshell

1. package PERL::TEST
   
2. use strict;
   
3. sub new{
   
4.   my $self = {};
   
5.   bless $self;
   
6.   return $self;
   
7. } ;
   
8. sub myprint{
   
9.    my $self = shift;
   
10.    return "Hello world";
    
11. }
    
12. 
    
13. 1;
    
14. 
    
15. 
    

复制代码

1. use lib "/hom/my/PERL/"
   
2. use PERL::TEST
   
3. my $test = PERL::TEST->new();
   
4. print $test->myprint;

复制代码

可以采用面向对象的写法。。
里面的函数都可以通过此方法调用{:3_186:}

cronas

但在实际应用中，如果模块很多，还是带上前面的累赘比较好。

例如做web时，在Appach的conf文件里，对路径总的定義：
<IFModule mod_perl.c>
   PerlSetEnv PERL5LIB /var/www/cgi-bin/lib
   ...
</IFModule>

在模块里，
不用 use lib
只用 use xx:x::me;  路径明确

290702500

回复 4# mcshell


    顶高手，谢谢。

kk861123

回复 1# 290702500


    因为myprint函数没有从你的PERL::TEST包中导入到当前程序的符号表中。在你的模块中加

1. require Exporter;
   
2. @EXPORT_OK = ( myprint );

复制代码

这里涉及到符号表相关知识，大骆驼第十章有介绍

290702500

回复 5# cronas


    谢谢分享经验， 3ks。

290702500

回复 8# 290702500


    恩，是的，谢谢。