perl自定义模块的调用！

pond2539

　　周末没事，看了下perl的书，刚开始不是很理解perl的自定义模块调用。刚弄明白，顺便记录下来！
　　1 #!/usr/bin/perl
2 push (@INC,'pwd');
3 use Cocoa;
4 $cup = new Cocoa;
第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建你的模块并指出该绝对路径。例如，如果在D:/perl_example/obj/package/创建包，第二行就应该如下：
push (@INC , "D:/perl_example/obj/package/");
在别的地方就应该这么的引用到该包：
BEGIN{push @INC, "D:/perl_example/obj/package/";}
在第三行中，包含上包Cocoa.pm以获取脚本中所需功能。use语句告诉Perl在@INC路径寻找文件Cocoa.pm并包含到解析的源文件拷贝中。use语句是使用类必须的。第四行调用new函数创建对象，这是Perl的妙处，也是其易混淆之处，也是其强大之处。创建对象的方法有多种，可以这样写：
$cup = Cocoa->new();
如果你是C程序员，可以用双冒号强制使用Cocoa包中的new()函数，如：
$cup = Cocoa::new();
可以在构造函数中加入更多的代码，如在Cocoa.pm中，可以在每个对象创建时输出一个简单声明，还可以用构造函数初始化变量或设置数组或指针。
注意：
1、一定要在构造函数中初始化变量；
2、一定要用my函数在方法中创建变量；
3、一定不要在方法中使用local，除非真的想把变量传递给其它子程序；
一点小小的知识点，赶紧记下来！