当前位置:编程学习 > 网站相关 >>

Perl object/bless

Perl object实际上就是一个数据结构的引用,只不过用bless把它和包绑定在一起,像类一样调用函数的过程只是从bless绑定的包中调用相应函数的过程。看下边的例子:
[plain]  
package Test;  
  
sub new{  
    my $class = shift;  
    bless {},$class;  
}  
  
sub test{  
    my $self = shift;  
    print "this is test: ",%$self,"\n";  
}  
  
use Data::Dumper;  
use Devel::Peek;  
  
my $x = new Test();  
  
# test 1  
$x->test();  
print Dumper $x;  
Dump $x;  
  
# test 2  
$x->{one}=1;  
$x->test();  
print $x->{one};  
print Dumper $x;  
Dump $x;  
执行test 1这部分,可以看到实例化的对象本质还是一个PVHV,不过它的FLAGS多了一个OBJECT,而且STASH指向Test,表明所有的函数调用都是从包Test中查找。
[plain]  
SV = RV(0x182a868) at 0x182a85c  
  REFCNT = 1  
  FLAGS = (PADMY,ROK)  
  RV = 0x298ee4  
  SV = PVHV(0x29e85c) at 0x298ee4  
    REFCNT = 1  
    FLAGS = (OBJECT,OOK,SHAREKEYS)  
    STASH = 0x182a70c   "Test"  
    ARRAY = 0x18246cc  
    KEYS = 0  
    FILL = 0  
    MAX = 7  
    RITER = -1  
    EITER = 0x0  
$VAR1 = bless( {}, 'Test' );  
执行test 2这部分,把对象只当作一个引用对待,可以看到同样有效。对于Perl的OO来说,通过这种方法还可以hack它的对象。
[plain]  
SV = RV(0x182a868) at 0x182a85c  
  REFCNT = 1  
  FLAGS = (PADMY,ROK)  
  RV = 0x298ee4  
  SV = PVHV(0x29e85c) at 0x298ee4  
    REFCNT = 1  
    FLAGS = (OBJECT,OOK,SHAREKEYS)  
    STASH = 0x182a70c   "Test"  
    ARRAY = 0x18246cc  (0:7, 1:1)  
    hash quality = 100.0%  
    KEYS = 1  
    FILL = 1  
    MAX = 7  
    RITER = -1  
    EITER = 0x0  
    Elt "one" HASH = 0x7f17f79a  
    SV = IV(0x298f30) at 0x298f34  
      REFCNT = 1  
      FLAGS = (IOK,pIOK)  
      IV = 1  
$VAR1 = bless( {  
                 'one' => 1  
               }, 'Test' );  
因为OO只是绑定变量和包,我们同样可以用下边的方法来实例化对象并调用函数:
[plain] view plaincopy
my $a = {one => 1, two => 2};  
bless $a,Test;  
  
$a->test();  
同样,我们也可以绑定变量到一个未定义的包,只不过调用过程的时候会出错。
[plain]  
my $a = {one => 1, two => 2};  
bless $a,Testing;  
  
$a->test();  
  
Output:  
Can't locate object method "test" via package "Testing" at 005.pl line 33.  
 
补充:综合编程 , 其他综合 ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,