第12章面向对象编程(免费阅读).pptVIP

sub new{ my $type=shift; my %parm=@_; my $this=[]; $this-[0]=$parm{Name}; $this-[1]=$parm{color}; $this-[2]=$parm{size}; bless $this.$type; } 用数组的办法 构造对象时，可以如下传递参数： $mug=TV::new(‘Name’=’top’,’color’=black,’size’=21); 操作符=与逗号操作符功能相同，但一般采用=，因为=可读性好些。 如： Name=$mug={‘Name’}; 12.4.2析构函数 Perl跟踪对象的链接数目，当某对象的最后一个应用释放到内存池时，该对象就自动销毁。对象的析构发生在代码停止后，脚本要结束时。对于全局变量，析构发生在最后一行代码运行之后。 采用DESTORY方法可以在对象被释放之前获得控制权。DESTORY方法不会自动调用其它的DESTORY方法，perl不做内置的析构工作，当一个对象被释放时，其内含的所有对象引用自动释放和销毁。 和其它的面向对象的程序设计语言类似，DESTORY一般不需要定义，它是系统自动完成的，当某个对象的引用数小于1时，它就会自动的调用DETORY来释放所占的内存空间，在程序退出时，一次性的销毁所占的所有空间。 12.5 继承和重载 12.5.1 继承