zoukankan      html  css  js  c++  java
  • [perl笔记] 对象和继承

    package classname
    
    #构造函数
    sub new{
    #所谓对象其实是一个哈希表或者数组
    my $self = shift; 
    bless $self, shift; #将self和类关联,告诉对象,你现在是shift类了,你可以使用shift类的方法了。
    return $self;
    }
    
    sub virtual_method{
    
    }
    
    1;

    对象以.pm文件结尾

    静态方法:  第一个参数为类名,

    虚方法:  第一个参数为对象的引用shift

    方法处理第一个参数的方式决定了它是静态的还是虚的。静态方法一般忽略掉第一个参数,因为它们已经知道自己在哪个类了,构造函数即静态方法。

    继承

    # parent class
    package parent
    sub new{
    my $type= shift;
    my $class=ref($type)||$type;
    my $self = {data1=>undef, data2=>undef};
    bless $self, $class;
    return self;
    
    }
    ;
    
    #child class
    package class
    use parent
    our  @ISA=("parent"); # this is extend, if method can't find in self class, then find in @ISA classes, if still not, find in AUTOLOAD, but you must call use AUTOLOAD first; if failed, then try in UNIVERSAL class, all attenption failed, throw exception
    
    sub new{
    my $type= shift;
    my $class=ref($type)||$type;
    my $self = $class->super::new; #继承父类数据
    
    $self->{data3}="";#创建自己数据
    bless $self, $class;
    return self;
    
    }
  • 相关阅读:
    BWList of logged on users in the Portal
    BASIS About Profile
    B/S C/S 打印
    程序员得学习观各种好书推荐
    ORACLE面试测试题目
    oracle经典20题(参考答案)
    程序员得学习观各种好书推荐
    Oracle笔试题
    Oracle笔试题
    Oracle里面常用的数据字典有哪些?
  • 原文地址:https://www.cnblogs.com/zengyou/p/3057149.html
Copyright © 2011-2022 走看看