Perl OOP

不念不忘少年蓝@ 2022-08-03 03:08 187阅读 0赞

## 1. 模块/类(包) ##

创建一个名为Apple.pm的包文件(扩展名pm是包的缺省扩展名，意为Perl Module)。  
一个模块就是一个类(包)。

## 2. new方法 ##

new()方法是创建对象时必须被调用的，它是对象的构造函数。

sub new { 
        my $class = shift;
        my $this = {};
        bless $this, $class;
        return $this;
    }

this=\{ \}创建一个没有键/值对的哈希引用，返回值被赋给局域变量this。  
bless()函数将类名与引用相关联。从new()函数返回后，$this引用被销毁。

## 3. bless方法 ##

构造函数是类的子程序，它返回与类名相关的一个引用。  
bless()函数将类名与引用相关联。  
其语法为：bless reference \[,class\]  
reference: 对象的引用  
class: 是可选项，指定对象获取方法的包名，缺省值为当前包名。

## 4. 类方法 ##

有两种方法：静态方法（如：构造函数）和虚方法。  
静态方法第一个参数为类名，虚方法第一个参数为对象的引用。  
虚方法通常首先把第一个参数shift到变量self或this中，然后将该值作普通的引用使用。  
静态方法直接使用类名来调用，虚方法通过该对象的引用来调用。

## 5. 继承 ##

@ISA数组含有类(包)名，@INC数组含有文件路径。  
当一个方法在当前包中未找到时，就到@ISA中去寻找。  
@ISA中还含有当前类继承的基类。

类中调用的所有方法必须属于同一个类或@ISA数组定义的基类。  
@ISA中的每个元素都是一个其它类(包)的名字。  
当类找不到方法时，它会从 @ISA 数组中依次寻找（深度优先）。  
类通过访问@ISA来知道哪些类是它的基类。  
e.g.

use Fruit;
    our @ISA = qw(Fruit);

## 6. OOP Sample ##

Super Class: Fruit.pm

#!/usr/bin/perl -w
    
    use strict;
    use English;
    use warnings;
    
    package Fruit;
    
    sub prompt { 
        print "\nFruit is good for health\n";
    }
    
    1;

Sub Class: Apple.pm  
Note: Sub class Apple.pm extends super class Fruit.pm via putting Fruit into array @ISA in Apple.pm

#!/usr/bin/perl -w
    
    use strict;
    use English;
    use warnings;
    
    package Apple;
    
    use Fruit;
    our @ISA = qw(Fruit);
    
    sub new { 
        my $class = shift;
        my %parm = @_;
    
        my $this = {};
    
        $this -> {
       'name'} = $parm{
       'name'};
        $this -> {
       'weight'} = $parm{
       'weight'};
    
        bless $this, $class;
    
        $this -> init();
    
        return $this;
    }
    
    sub init { 
        my $reference = shift;
        my $class = ref $reference;
    
        print "class: $class\n";
    
        while (my ($key, $value) = each (%$reference))
        {
            print "$key = $value\n";
        }
    }
    
    sub order { 
        my $class = ref shift;
        my $customer = shift;
        my $address = shift;
        my $count = shift;
    
        print "\n$customer order $count $class to $address\n";
    }
    
    1;

Main Class: Purchase.pl

#!/usr/bin/perl -w
    
    use strict;
    use English;
    use warnings;
    
    use Apple;
    
    my $apple = new Apple('name' => 'Red Fuji', 'weight' => 300);
    
    $apple -> prompt();
    
    $apple -> order('Zhou Shengshuai', 'ChengDu', 99);

Output:

class: Apple
    weight = 300
    name = Red Fuji
    
    Fruit is good for health
    
    Zhou Shengshuai order 99 Apple to ChengDu