怎樣調(diào)用自己寫的模塊內(nèi)的函數(shù)？

kaing

看了很多例子，還是看不懂。
3 : package Mymodule;
4 : require Exporter;
5 : @ISA = qw(Exporter);
6 : @EXPORT = qw(myfunc1 myfunc2);
7 : @EXPORT_OK = qw($myvar1 $myvar2);
8 :
9 : sub myfunc1 {
10:   $myvar1 += 1;
11: }
12:
13: sub myfunc2 {
14:   $myvar2 += 2;
15: }

如何調(diào)用阿？

fengpxu

use 你的模塊的名字; #如果提示無法找到的話你就用 use lib('路徑');
                              #還可以設(shè)置環(huán)境變，前面有個(gè)帖子告訴你怎么弄。

然后你在程序里就可以
new 你的模塊了！

kaing

use Mymodule;
new Mymodule;
能直接寫函數(shù)名么？

kaing

如果函數(shù)帶參數(shù)，怎么傳遞參數(shù)？
我試過用 funname ($)
{
    my $a=$_;

}
這樣得不到。

fengpxu

原帖由 kaing 于 2007-4-29 15:52 發(fā)表
use Mymodule;
new Mymodule;
能直接寫函數(shù)名么？

use MYMODULE;
my $moduleObject = new MYMODULE(parameters);

這樣就可以了！

kaing

函數(shù)內(nèi)部如何接受參數(shù)？
如果函數(shù)帶參數(shù)，怎么傳遞參數(shù)？
我試過用 funname ($)
{
    my $a=$_; #這怎么寫？

}
這樣得不到。

kaing

搞定了，謝謝！
my($a) = $_[0];

fengpxu

原帖由 kaing 于 2007-4-29 16:12 發(fā)表
函數(shù)內(nèi)部如何接受參數(shù)？
如果函數(shù)帶參數(shù)，怎么傳遞參數(shù)？
我試過用 funname ($)
{
    my $a=$_; #這怎么寫？

}
這樣得不到。

my $a = shift;
就這樣！

不要用$a,$b這樣的單字符變量，否則會(huì)遇到麻煩！

[ 本帖最后由 fengpxu 于 2007-4-29 16:30 編輯 ]

kaing

謝謝指導(dǎo)！