面向对象编程中的 Perl 对象227

Perl 是一种强大的编程语言，支持面向对象编程（OOP）范式。OOP 是一种组织代码以便于应用程序开发和维护的结构化方法。在 Perl 中，对象是数据和方法的集合，其中数据称为属性，而方法是用于操作这些数据的功能。

类和对象

在 Perl 中，类是对象的蓝图或模板，它定义了对象的数据结构和行为。创建一个类涉及定义其属性和方法。另一方面，对象是类的实例，它包含特定于该对象的特定数据。要创建对象，您必须使用类的 new() 方法。
class Person {
my $name;
my $age;
sub new {
my $class = shift;
my $self = {
_name => shift,
_age => shift,
};
bless $self, $class;
return $self;
}
sub name { $_[0]{_name} }
sub age { $_[0]{_age} }
}
my $person = Person->new('John', 30);
print($person->name, ', ', $person->age, "");

属性（数据）

属性存储与对象关联的数据。在 Perl 中，属性通常用私有变量表示，以防止意外修改。要访问属性，可以使用方法或快捷方式。
class Student {
my $name = 'John';
my $marks = [80, 90, 75];
sub get_name { $_[0]{_name} }
sub get_marks { $_[0]{_marks} }
}
my $student = Student->new();
print($student->get_name, "");
print(join(', ', $student->get_marks), "");

方法（行为）

方法是作用于对象数据的函数。它们定义了对象的行为并允许用户与对象交互。方法通常是公开的，以便可以通过对象调用它们。
class BankAccount {
my $balance = 0;
sub deposit {
my ($self, $amount) = @_;
$self->{_balance} += $amount;
}
sub withdraw {
my ($self, $amount) = @_;
$self->{_balance} -= $amount if $amount {_balance};
}
sub get_balance { $_[0]{_balance} }
}
my $account = BankAccount->new();
$account->deposit(100);
$account->withdraw(50);
print($account->get_balance, "");

继承

继承是创建新类的机制，该类通过从现有类（称为父类或超类）继承数据和行为来扩展现有类。派生类（称为子类）可以访问其父类的方法和属性，并可以定义其自己的附加功能。
class Employee {
my $name;
my $salary;
sub new {
my $class = shift;
my $self = {
_name => shift,
_salary => shift,
};
bless $self, $class;
return $self;
}
sub name { $_[0]{_name} }
sub salary { $_[0]{_salary} }
}
class Manager extends Employee {
my $department;
sub new {
my $class = shift;
my $self = {
_name => shift,
_salary => shift,
_department => shift,
};
bless $self, $class;
return $self;
}
sub department { $_[0]{_department} }
}
my $manager = Manager->new('John', 100000, 'Sales');
print($manager->name, ', ', $manager->salary, ', ', $manager->department, "");

多态

多态允许子类对象以与父类对象相同的方式进行交互。这允许编写通用代码，该代码可以处理不同类型对象的集合。多态在动态语言中非常有用，例如 Perl，其中对象类型可以在运行时确定。
class Animal {
sub speak { print("...") }
}
class Dog extends Animal {
sub speak { print("Woof woof!") }
}
class Cat extends Animal {
sub speak { print("Meow meow!") }
}
my @animals = (Dog->new(), Cat->new());
foreach my $animal (@animals) {
$animal->speak;
}

封装和数据隐藏

封装是限制对对象内部数据和方法的访问的过程。它有助于确保数据的完整性和安全性。在 Perl 中，使用私有变量（以 _ 开头的变量）来实现封装，这些变量只能通过对象的方法访问。
class User {
my $_username;
my $_password;
sub new {
my $class = shift;
my $self = {
_username => shift,
_password => shift,
};
bless $self, $class;
return $self;
}
sub get_username { $_[0]{_username} }
sub get_password { $_[0]{_password} }
}
my $user = User->new('john', 'password');
print($user->get_username, ', ', $user->get_password, "");