类和对象

-- Start

Perl 中的类和模块非常相似，都是用包来实现，下面的例子我们定义了一个 Date.pm 类。

#!/usr/bin/perl

# 指定包名，类名和包名相同
package Date;


#------------------------------------------------------- 构造函数
# 构造函数的名字可以是任意的名字，通常使用 new
# 构造函数的第一个参数是类名
sub new {
	my $class = shift(@_); # 得到类名，类名是第一个参数
	my (undef,undef,$d,$m,$y) = localtime(time);

	# 构造一个 hash 的引用,用来存储 年，月，日
	my $this = {};
	$this->{"year"} = sprintf("%04d",$y + 1900);
	$this->{"month"} = sprintf("%02d",$m + 1);
	$this->{"day"} = sprintf("%02d",$d);

	# 将引用($this)和类($class)关联起来，关联起来后，引用($this)代表该类的一个对象
	bless $this,$class;

	# 返回构造好的对象
	return $this;
}


#------------------------------------------------------- 方法
sub getDate {
	my $this = shift(@_); # 方法的第一个参数是对象的引用
	return $this->{"year"}."-".$this->{"month"}."-".$this->{"day"};
}


# 必须返回一个布尔型的真值，否则 require 时会报错
return 1;

下面的例子演示了如果使用上面定义的 Date 类。

#!/usr/bin/perl

# 使用类
use Date;


# 构造一个Date实例
my $date = Date->new();


# 访问 Date 类中的域
my $year = $date->{"year"};
print "This year is $yearn";


# 访问 Date 类中的函数
my $today = $date->getDate();
print "Today is $todayn";

?

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处 -- Last Updated on 2012-07-08 -- Written by ShangBo on 2012-07-08 -- End