怎样调用自己写的模块内的函数？

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: }

如何调用阿？

fengpxu

use 你的模块的名字; #如果提示无法找到的话你就用 use lib('路径');
                              #还可以设置环境变，前面有个帖子告诉你怎么弄。

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

kaing

use Mymodule;
new Mymodule;
能直接写函数名么？

kaing

如果函数带参数，怎么传递参数？
我试过用 funname ($)
{
    my $a=$_;

}
这样得不到。

fengpxu

原帖由 kaing 于 2007-4-29 15:52 发表
use Mymodule;
new Mymodule;
能直接写函数名么？

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

这样就可以了！

kaing

函数内部如何接受参数？
如果函数带参数，怎么传递参数？
我试过用 funname ($)
{
    my $a=$_; #这怎么写？

}
这样得不到。

kaing

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

fengpxu

原帖由 kaing 于 2007-4-29 16:12 发表
函数内部如何接受参数？
如果函数带参数，怎么传递参数？
我试过用 funname ($)
{
    my $a=$_; #这怎么写？

}
这样得不到。

my $a = shift;
就这样！

不要用$a,$b这样的单字符变量，否则会遇到麻烦！

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

kaing

谢谢指导！