請教package的用法，謝謝

290702500

我想嘗試下package的用法，

我有這么兩個文件， /home/my/PERL/test.pm   和 /home/my/PERL/test.pl
test.pm 里面有一個myprint的sub函數(shù)， 在我的test.pl里面會調(diào)用myprint，

我的問題是，我已經(jīng)在test.pl里面加了下面兩行，為什么調(diào)用函數(shù)的時候還需要在mypirnt前面加上PERL::TEST呢？  希望指點(diǎn)，謝謝。

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

PERL::TEST::myprint ;




test.pm 是下面這樣的，

package PERL::TEST
sub myprint {
}

wenhq

myprint 在test.pl里有沒有重新定義？如果沒有那么應(yīng)該可以不用些前綴的。

290702500

回復(fù) 2# wenhq


    謝謝，已經(jīng)找到答案了，

需要在.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. 
    

復(fù)制代碼

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

復(fù)制代碼

可以采用面向?qū)ο蟮膶懛��！?br /> 里面的函數(shù)都可以通過此方法調(diào)用{:3_186:}

cronas

但在實(shí)際應(yīng)用中，如果模塊很多，還是帶上前面的累贅比較好。

例如做web時，在Appach的conf文件里，對路徑總的定義：
<IFModule mod_perl.c>
   PerlSetEnv PERL5LIB /var/www/cgi-bin/lib
   ...
</IFModule>

在模塊里，
不用 use lib
只用 use xx:x::me;  路徑明確

290702500

回復(fù) 4# mcshell


    頂高手，謝謝。

kk861123

回復(fù) 1# 290702500


    因?yàn)閙yprint函數(shù)沒有從你的PERL::TEST包中導(dǎo)入到當(dāng)前程序的符號表中。在你的模塊中加

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

復(fù)制代碼

這里涉及到符號表相關(guān)知識，大駱駝第十章有介紹

290702500

回復(fù) 5# cronas


    謝謝分享經(jīng)驗(yàn)， 3ks。

290702500

回復(fù) 8# 290702500


    恩，是的，謝謝。