对象(下):

原创 2016年05月31日 14:51:59
对象(下):

如果 @ISA 包含多于一个包的名字,包的搜索都是从左向右的顺序进行的。这些搜索是由
浅入深的,因此,如果你有一个 Mule 类有象下面这样的继承关系:


因为一个 BEGIN 块立即就执行了,所以它甚至可以在其他文件编译前把子过程声明, 定义以及输入等抓过来。这
些动作可能改变编译器对当前文件其他部分分析的结果, 特别是在你输入了子过程定义的情况下。至少,声明一个
子过程就把它当作一个列表 操作符使用,这样就令圆括号是可选的。如果输入的子过程定义了原型,那么调用它
的时候就会当作内建函数分析,甚至覆盖同名的内建函数,这样就可以给它们不同的 语意。use 声明就是一个带有
目的的 BEGIN 块声明。

访问被覆盖的方法:

[root@wx03 5]# cat a5.pl 
END {print cccccccccccc."\n"};
print "aaaaaaaaaaaaa\n";
BEGIN {print bbbbbbbbbbbbbb."\n"};

[root@wx03 5]# perl a5.pl 
bbbbbbbbbbbbbb
aaaaaaaaaaaaa
cccccccccccc

根据结果,我们得出,BEGIN是在Perl语言运行最开始运行的块,END是在Perl语言运行最后运行的块,并注意BEGIN和END必须是大写的。



有时候, 你希望一个衍生类的方法表现得象基类中的某些方法的封装器。

这就是 SUPER 伪类提供便利的地方。它令你能够调用一个覆盖了的基类方法,而不用声
明是哪个类定义了该方法。


访问被覆盖的方法:


[root@wx03 5]# cat Critter.pm 
package Critter;  
sub new {  
    my $self = {};  
    my $invocant = shift;      
my $class = ref($invocant) || $invocant;  
    my ($name)=@_;      
      my $self = {      
         "name" =>$name      
                 };    
    bless $self, $class; # Use class name to bless() reference  
    return $self;  
  
};  
  
sub sum2 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a + $b;  
};  
  
  
sub fun1 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a / $b;  
}  

sub kick {
      my  $self=shift;
       my $a=shift;
       my $b=shift;
       return $a / $b +66;
}

1;  
[root@wx03 5]# cat a6.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->kick(33,4);
print "\n";
use base qw(Critter);  
require Critter;
print $steed->SUPER::kick(33,4);
print "\n";
[root@wx03 5]# perl a6.pl 
132
74.25

/********************

[root@wx03 5]# cat Horse.pm 
package Horse;  
our @ISA = "Critter";  
require Critter;  
sub new {  
my $invocant = shift;  
my $class = ref($invocant) || $invocant;  
my $self = {  
color => "bay",  
legs => 4,  
owner => undef,  
@_, # 覆盖以前的属性  
};  
return bless $self, $class;  
#return  $self;  
};  
sub sum1 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a + $b + 7;  
}; 

sub kick {
  my $self=shift;
  $self->SUPER::kick(@_);
};
1;


[root@wx03 5]# cat Critter.pm 
package Critter;  
sub new {  
    my $self = {};  
    my $invocant = shift;      
my $class = ref($invocant) || $invocant;  
    my ($name)=@_;      
      my $self = {      
         "name" =>$name      
                 };    
    bless $self, $class; # Use class name to bless() reference  
    return $self;  
  
};  
  
sub sum2 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a + $b;  
};  
  
  
sub fun1 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a / $b;  
}  

sub kick {
      my  $self=shift;
       my $a=shift;
       my $b=shift;
       return $a / $b +66;
}

1;  
[root@wx03 5]# cat a6.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->kick(12,4);
print "\n";
[root@wx03 5]# perl a6.pl 
69


UNIVERSAL :最终的祖先类:

这个包从来不会在
@ISA 中出现,但如果查找 @ISA 失败总是要查找它。你可以把 UNIVERSAL 看作最终
的祖先,所有类都隐含地从它衍生而来。



INVOCANT->isa(CLASS)
如果 INVOCANT 的类是 CLASS 或者任何从 CLASS 继承来的,isa 方法返回真。


[root@wx03 5]# cat a7.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->isa(Horse);
print "\n";
print $steed->isa(Critter);
print "\n";
print $steed->isa(test);
print "\n";
[root@wx03 5]# perl a7.pl 
1
1

[root@wx03 5]# 

$steed的类是Horse 或者从Horse继承而来的((Critter);


判断是否是HASH类型:
[root@wx03 5]# cat a7.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->isa(Horse);
print "\n";
print $steed->isa(Critter);
print "\n";
print UNIVERSAL::isa($steed,'HASH');
print "\n";
[root@wx03 5]# perl a7.pl 
1
1
1


判断方法是否存在:
[root@wx03 5]# cat a8.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->can(sum1);
print "\n";
print $steed->can(sumxx);
print "\n";
[root@wx03 5]# perl a8.pl 
CODE(0x28f89d0)

[root@wx03 5]# 

我们可以用这个方法实现条件调用——只有方法存在才调用:
$obj->snarl if $obj->can("snarl");


方法自动装载:

[root@wx03 5]# cat Horse.pm 
package Horse;  
our @ISA = "Critter";  
require Critter;  
sub new {  
my $invocant = shift;  
my $class = ref($invocant) || $invocant;  
my $self = {  
color => "bay",  
legs => 4,  
owner => undef,  
@_, # 覆盖以前的属性  
};  
return bless $self, $class;  
#return  $self;  
};  
sub sum1 {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a + $b + 7;  
}; 

sub kick {
  my $self=shift;
  $self->SUPER::kick(@_);
};

%h1=(a=>1);
sub AUTOLOAD {
return testdadadak888  ;
};
1;
[root@wx03 5]# cat a8.pl 
use Horse;
use Data::Dumper;

$steed = Horse->new(color => "dun");
print $steed->dahda8da;
print "\n";
[root@wx03 5]# perl a8.pl 
testdadadak888
[root@wx03 5]# 


私有方法:

实例析构器;

管理实例数据:

比如,如果你希望一个叫 $city 的对象有一个数据
域名字叫 elevation,你可以简单地 $city->{elevation} 这样访问它。可以不用声明。
方法的封装会为你做这些。


大多数类都把它们的对象的属性保存在一个匿名散列表
里。对象的实例数据保存在这个散列表里,这个散列表也是该对象自己的小名字空间,用以
划分哪个类对该对象进行了哪些操作。

use fields  定义的域:

对象不一定要用匿名散列来实现。任何引用都可以。比如,如果你使用一个匿名数组,你可
以这样设置一个构造器;

用 Class::Struct  生成类:

使用 Autoloading (自动装载)生成指示器:


场景缓存选择对象查看属性

  • 2017年12月13日 11:40
  • 54KB
  • 下载

由Java反序列化对象异常想到的

由Java反序列化对象异常想到的serialVersionUID问题。
  • baosxie
  • baosxie
  • 2017年03月14日 23:06
  • 1477

编辑对象后给属性字段赋值

  • 2017年12月13日 11:41
  • 10.59MB
  • 下载

JavaScript面向对象

  • 2017年12月11日 17:13
  • 13.75MB
  • 下载

Unity实现在安卓手机上触屏控制转向--控制对象为飞机

该实例是Unity实现在移动端通过触摸屏幕进行对飞机的移动和转向,用于学习Touch类的相关知识public class AirControl:MonoBehaviour{ private T...
  • WZH_YBW
  • WZH_YBW
  • 2017年12月12日 18:26
  • 73

Libgdx专题系列:对象篇源码分析 Sprite

Sprite即精灵,

SuperMap Objects .NET 对象几何运算

  • 2017年12月08日 08:39
  • 11.41MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:对象(下):
举报原因:
原因补充:

(最多只允许输入30个字)