Perl Object

发布时间：2020-12-16 00:22:09 所属栏目：大数据来源：网络整理

导读：==================================================================================== Perl Object Invoke: 1、使用$pkg_ref-method时，第一个参数是包的引用，随后才使在调用是客户代码传入的参数； 2、使用-w参数执行perl脚本或者在脚本中加入use warn

====================================================================================
Perl Object Invoke:
1、使用$pkg_ref->method时，第一个参数是包的引用，随后才使在调用是客户代码传入的参数；
2、使用-w参数执行perl脚本或者在脚本中加入use warnings;来使你的脚本更加健壮；
3、new中可以bless一个引用，当然也可以不bless任何引用，但必须返回包的引用，即new方法的第一个参数。
====================================================================================
Note in Perl:
package Graph::Base;
use vars qw(@ISA);
require Exporter;
@ISA = qw(Exporter);
||
||
use vars qw(@ISA) ==> 把@ISA变成包全局变量，所以能在整个包中使用,注意和my的不同；
require Exporter ==> 类似于use,导入包或程序，他们之间有些差别；
@ISA ==> 表明Graph :: Base，用于查看父包；
Exporter ==> 用于输出方法，恰好可以使得这段代码的方法可以输出，Exporter没用写成@Exporter=qw(a,b,c)，保证了里面的所有方法都可以输出。

Perl codeuse vars qw(@ISA);
require Exporter;
@ISA= qw(Exporter);
对应新的语法：
Perl codeuse base qw(Exporter);

@EXPORT =qw(
setBeanType #空格，不是逗号。
printType
);
表示可以被继承，perl方法没有public,private的声明，必须通过输出模块来声明哪些是public的方法
====================================================================================
Perl qw: ? ?
? ?@list = qw(
? ? ? ? a # a comment
? ? ? ? b # another comment
? ? );

Or

? ?@list = (
? ? ? ? 'a',? ?# a comment
? ? ? ? 'b',? ?# another comment
? ? );
====================================================================================
Perl:
@INC 是包含文件的寻找路径。
@ISA 数组含有类(包)名，当一个方法在当前包中未找到时就到@ISA中的包去寻找。
@ISA 中还含有当前类继承的基类名。
@EXPORT 包含了需要默认输出的函数列表。

====================================================================================

Perl Global Variable:
use vars @arrary;
||
our @arrary;
====================================================================================

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!