[perl笔记] - 对象和继承

[perl笔记] - 对象和继承 package classname #构造函数 sub new{ #所谓对象实际上是一个哈希表或者数组 my $self = shift; bless $self, shift; #将self和类关联,告诉对象，你如今是shift类了，你能够使用shift类的方法了。 return $self; } sub virtual_method{ } 1;  

>>阅读原文<<