本文共 1113 字，大约阅读时间需要 3 分钟。

-- Start

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

#!/usr/bin/perl# 指定包名，类名和包名相同package Date;#------------------------------------------------------- 构造函数# 构造函数的名字可以是任意的名字，通常使用 new# 构造函数的第一个参数是类名sub new {	my $class = shift(@_); # 得到类名，类名是第一个参数	my (undef,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;

#!/usr/bin/perl# 使用类use Date;# 构造一个Date实例my $date = Date->new();# 访问 Date 类中的域my $year = $date->{"year"};print "This year is $year\n";# 访问 Date 类中的函数my $today = $date->getDate();print "Today is $today\n";

-- 更多参见：

-- 声 明：转载请注明出处