关于类、包、成员函数和私有函数的一些问题

fakepersona

1.代码如下，好像只找的到当前所属类的函数，但找不到父类的函数：
父类：

1.   1 package Coco ;
   
2.   2 use Exporter ;
   
3.   3 our @ISA = qw/Exporter/ ;
   
4.   4 our @EXPORT = qw/print set/ ;
   
5.   5 sub new{
   
6.   6     my $x = shift ;
   
7.   7     my $this = {
   
8.   8         name => "Coco" ,
   
9.   9         price => 3 ,
   
10. 10         taste => "cococola" ,
    
11. 11         } ;
    
12. 12     bless $this , $x;
    
13. 13     return $this ;
    
14. 14 }
    
15. 15 sub set{
    
16. 16     my $this = shift ;
    
17. 17     $this{"name"} = $_[0] ;
    
18. 18     $this{"price"} = $_[1] ;
    
19. 19     $this{"taste"} = $_[2] ;
    
20. 20 }
    
21. 21
    
22. 22 sub print{
    
23. 23     my $list = shift ;
    
24. 24     print "this is \n" ;
    
25. 25     for(keys%$list) {
    
26. 26         print "$_ =>  $list{$_}\n";
    
27. 27     }
    
28. 28 }
    
29. 29 1;

复制代码

子类：

1. 1 package CocoCola ;
   
2.   2 use Coco ;
   
3.   3 @ISA = qw/Coco/ ;
   
4.   4 @EXPORT = qw/Faker/ ;
   
5.   5 sub new{
   
6.   6     my $x = shift ;
   
7.   7     my $this = Coco::new() ;
   
8.   8     $this->Coco::set("CocoCola","7","helohelo") ;
   
9.   9     bless $this,$x ;
   
10. 10     return $this ;
    
11. 11 }
    
12. 12 sub Faker{
    
13. 13     my $x = shift ;
    
14. 14     print "From FAKER:\n" ;
    
15. 15     $x -> Coco::print() ;
    
16. 16 }
    
17. 17 1;
    
18. 18

复制代码

最终的调用子类的代码：

1. 1 #!/bin/perl
   
2.   2 @INC = qw/`pwd`/ ;
   
3.   3
   
4.   4 use CocoCola ;
   
5.   5
   
6.   6
   
7.   7 $x = CocoCola::new() ;
   
8.   8 $x->Faker ;
   
9.   9 $x->print ;
   
10. 10 print "\n\n" ;
    
11. 11 print "\n\n\%ma\in:\n";

复制代码

但是最后找得到Faker却找不到print。


2.私有成员函数的构造，书上说是用my声明匿名函数的应用，但是具体怎么用？能不能举个例子？谢谢！！

pengphy

1. Coco::new() ;

复制代码

你这样用 是错的，  类名不会作为第一个参数 插入到函数调用中去

只有method invocation才会，，，