Perl自定义模块的调用方法教程

周末没事，看了下perl的书，刚开始不是很理解perl的自定义模块调用。刚弄明白，顺便记录下来！

1 #!/usr/bin/perl

   2 push (@INC,'pwd');

   3 use Cocoa;

   4 $cup = new Cocoa;
第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建你的模块并指出该绝对路径。例如，如果在https://www.gofarlic.com/perl_example/obj/package/创建包，第二行就应该如下：

   push (@INC , "https://www.gofarlic.com/perl_example/obj/package/");

   在别的地方就应该这么的引用到该包：
BEGIN{push @INC, "https://www.gofarlic.com/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，除非真的想把变量传递给其它子程序；

   一点小小的 知识点 ，赶紧记下来！

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删