请帮我看下，我写的这个Perl的面向对象有实例方法吗？

wangzhe19950128

1. #!/c:/perl/bin/perl.exe
   
2. use warnings;
   
3. 
   
4. package Person;
   
5. sub new{
   
6.     my $classname = shift;
   
7.     my $self = {@_};
   
8.     bless $self;
   
9.     return $self;
   
10. }
    
11. 
    
12. sub sayname{
    
13.     my $self = shift;
    
14.     my $other = {@_};
    
15.     return "You name is $self->{'name'} and Age is $other->{'age'}";
    
16. }
    
17. 
    
18. $person = Person->new('name'=>'wangzhe');
    
19. print $person->sayname('age'=>17);

复制代码

最好还可以解释下，什么是类方法，什么是实例方法，谢谢

horsley

new 就是类方法，通过类名调用。
sayname 就是实例方法，通过实例对象调用 。
类方法不依赖具体的对象实例，所以无需传入对象句柄。

wangzhe19950128

我刚刚看懂了，
就是一个抽象的东西（类），只有被实例对象后，它就是一个实例了，你就可以用一些具体的方法了，比如显示性别，姓名，年龄什么的了