学perl的面向对象遇到个问题

xie3ks

非常谢谢你，
讲 return 当在 new 的最后一个 } 前面，还是报错

sub new
{
    my $class = shift;
    my $data={};
    our $students;

    my $ref = sub
    {
        my ($access_type, $key, $value)=@_;

        if ($access_type eq "set")
        {
            $data->{$key} = $value;
        }
        elsif ($access_type eq "get")
        {
            return $data->{$key};
        }
        elsif ($access_type eq "keys")
        {
            return keys %{$data};
        }
        elsif ($access_type eq "destory")
        {
            $students--;
            return $students;
        }
        else
        {
           die "Access type should be set or get\n";
        }
        print "New Student created, we have ",++$students," students.\n";
    }
        return bless ($ref, $class);
}


我都要搞晕了

回复 9# MMMIX


   

MMMIX

回复 11# xie3ks


    你这是语法错误啊。前面的 } 后需要语句分隔符 ; 。

MMMIX

xie3ks 发表于 2015-09-08 14:58
非常谢谢你，
讲 return 当在 new 的最后一个 } 前面，还是报错

关键是这次报的是语法错误。你都不看错误信息么？

xie3ks

赞，谢谢谢谢，非常感谢
哈哈
回复 12# MMMIX


   

xie3ks

看了，主要是还不太熟悉
知道是 bless 附近有问题
一开始也把return 放在 最后面
但是还是报错，没有找到 new里面的那个 sub 之后还要加个 分号！！


回复 13# MMMIX


   

minirain

回复 1# xie3ks
原书本中有些语序需要调整一下，如：

1. 
   
2. else
   
3.          {
   
4.             die "Access type should be set or get\n";
   
5.          }
   
6.         
   
7.          
   
8.      };
   
9.          print "New Student created, we have ",++$students," students.\n";
   
10.          bless $ref, $class;
    
11.            
    
12.     }
    

复制代码

有的print语句要改为printf（格式输出）如：

1. 
   
2. printf "%-25s%-5s:%-20s\n", $self, $key, $value;
   

复制代码

而不是：

1. print "%-25s%-5s:%-20s\n", $self, $key, $value;

复制代码

1. package Student;
   
2. 
   
3. sub new
   
4.    {
   
5.      my $class = shift;
   
6.      my $data={};
   
7.      our $students;
   
8. 
   
9.      my $ref = sub
   
10.      {
    
11.          my ($access_type, $key, $value)=@_;
    
12. 
    
13.          if ($access_type eq "set")
    
14.          {
    
15.              $data->{$key} = $value;
    
16.          }
    
17.          elsif ($access_type eq "get")
    
18.          {
    
19.              return $data->{$key};
    
20.          }
    
21.          elsif ($access_type eq "keys")
    
22.          {
    
23.              return keys %{$data};
    
24.          }
    
25.          elsif ($access_type eq "destroy")
    
26.          {
    
27.              $students--;
    
28.              return $students;
    
29.          }
    
30.          else
    
31.          {
    
32.             die "Access type should be set or get\n";
    
33.          }
    
34.         
    
35.          
    
36.      };
    
37.          print "New Student created, we have ",++$students," students.\n";
    
38.          bless $ref, $class;
    
39.            
    
40.     }
    
41. 
    
42. sub set{
    
43.      my ($self, $key, $value) = @_;
    
44.      $self->("set", $key, $value);
    
45. }
    
46. 
    
47. sub get{
    
48.      my ($self, $key) = @_;
    
49.      return $self->("get", $key);
    
50. }
    
51. 
    
52. sub display{
    
53.      my $self = shift;
    
54.      my @keys = $self ->("keys");
    
55.      
    
56.      #@keys = reverse (@keys) ;
    
57.      
    
58.      foreach my $key(@keys)
    
59.      {
    
60.          my $value = $self->("get", $key);
    
61.          printf "%-25s%-5s:%-20s\n", $self, $key, $value;
    
62.      }
    
63.      print "\n";
    
64. }
    
65. 
    
66. sub DESTROY{
    
67.      my $self = shift;
    
68.      print "Object going out of scope:\n";
    
69.      print "Students remain: " , $self->("destroy") , "\n";
    
70. }
    
71. 
    
72. 1;

复制代码

运行结果如下：

xie3ks

对的，谢谢
已经调整好了！！
第一个地方是 bless 和 他上面的哪行要移出到 new 里的那个匿名函数
第二个地方是 第一步移出来后，要在 } 后加个 分号， (这个才是一直没有发现的问题)

回复 16# minirain