74 lines
1.2 KiB
Perl
74 lines
1.2 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# 下面是简单的类实现
|
|
package MyClass;
|
|
|
|
sub new
|
|
{
|
|
print "MyClass::new called\n";
|
|
my $type = shift; # 包名
|
|
my $self = {}; # 引用空哈希
|
|
return bless $self, $type;
|
|
}
|
|
|
|
sub DESTROY
|
|
{
|
|
print "MyClass::DESTROY called\n";
|
|
}
|
|
|
|
sub MyMethod
|
|
{
|
|
print "MyClass::MyMethod called!\n";
|
|
}
|
|
|
|
|
|
# 继承实现
|
|
package MySubClass;
|
|
|
|
@ISA = qw( MyClass );
|
|
|
|
sub new
|
|
{
|
|
print "MySubClass::new called\n";
|
|
my $type = shift; # 包名
|
|
my $self = MyClass->new; # 引用空哈希
|
|
return bless $self, $type;
|
|
}
|
|
|
|
sub DESTROY
|
|
{
|
|
print "MySubClass::DESTROY called\n";
|
|
}
|
|
|
|
sub MyMethod
|
|
{
|
|
my $self = shift;
|
|
$self->SUPER::MyMethod();
|
|
print " MySubClass::MyMethod called!\n";
|
|
}
|
|
|
|
# 调用以上类的主程序
|
|
package main;
|
|
|
|
print "调用 MyClass 方法\n";
|
|
|
|
$myObject = MyClass->new();
|
|
$myObject->MyMethod();
|
|
|
|
print "调用 MySubClass 方法\n";
|
|
|
|
$myObject2 = MySubClass->new();
|
|
$myObject2->MyMethod();
|
|
|
|
print "创建一个作用域对象\n";
|
|
{
|
|
my $myObject2 = MyClass->new();
|
|
}
|
|
# 自动调用析构函数
|
|
|
|
print "创建对象\n";
|
|
$myObject3 = MyClass->new();
|
|
undef $myObject3;
|
|
|
|
print "脚本执行结束...\n";
|
|
# 自动执行析构函数 |