分析一段书本中的perl代码---简单

hejianbu437

请帮忙分析一下，紫色部分的1；是什么作用，另外代码二为什么运行会报如下错误

Can't call method "set" on unblessed reference at /tmp/hjb17.pl line 9.

1. 
   
2.   1
   
3.   2   package Student;
   
4.   3   sub new { # Constructor
   
5.   4   my $class = shift;
   
6.   5   my $data={};
   
7.   6   our $students;
   
8.   7   my $ref = sub { # Closure
   
9.   8   my ($access_type, $key, $value) = @_;
   
10.   9   if ($access_type eq "set"){
    
11. 10   $data->{$key} = $value; # $data still available here
    
12. 11   }
    
13. 12   elsif ($access_type eq "get"){
    
14. 13   return $data->{$key};
    
15. 14   }
    
16. 15   elsif ($access_type eq "keys"){
    
17. 16   return (keys %{$data});
    
18. 17   }
    
19. 18   elsif ($access_type eq "destroy"){
    
20. 19   $students--;
    
21. 20   return $students;
    
22. 21   }
    
23. 22   else{
    
24. 23   die "Access type should be set or get";
    
25. 24   }
    
26. 25   print "New student created, we have ", ++$students,
    
27. 26   " students.\n";
    
28. 27   bless ($ref, $class); # bless anonymous subroutine
    
29. 28   }
    
30. 29   } # End constructor
    
31. 30   sub set{
    
32. 31   my($self,$key,$value) = @_; # $self references anonymous sub
    
33. 32   $self->("set",$key,$value);
    
34. 33   }
    
35. 34   sub get{
    
36. 35   my ($self,$key) = @_;
    
37. 36   return $self->("get", $key);
    
38. 37   }
    
39. 38   sub display{
    
40. 39   my $self = shift;
    
41. 40   my @keys = $self->("keys");
    
42. 41   @keys=reverse(@keys);
    
43. 42   foreach my $key (@keys){
    
44. 43   my $value = $self->("get",$key);
    
45. 44   printf "%-25s%-5s:%-20s\n",$self, $key,$value ;
    
46. 45   }
    
47. 46   print "\n";
    
48. 47   }
    
49. 48   sub DESTROY{
    
50. 49   my $self = shift;
    
51. 50   print "Object going out of scope:\n";
    
52. 51   print "Students remain: ", $self->("destroy"), "\n";
    
53. 52   }
    
54. 53   [color=Magenta]1；[/color]
    
55. 
    
56.   [code]
    
57.   1 #!/usr/bin/perl
    
58.   2 use Student;
    
59.   3 $ptr1 = Student->new(); # Create new students
    
60.   4 $ptr2 = Student->new();
    
61.   5 $ptr3 = Student->new();
    
62.   6 print "$ptr1\n";
    
63.   7 print "$ptr2\n";
    
64.   8 print "$ptr3\n";
    
65.   9 $ptr1->set("Name", "Jody Rogers"); # Set data for object
    
66. 10 $ptr1->set("Major", "Law");
    
67. 11 $ptr2->set("Name", "Christian Dobbins");
    
68. 12 $ptr2->set("Major", "Drama");
    
69. 13 $ptr3->set("Name", "Tina Savage");
    
70. 14 $ptr3->set("Major", "Art");
    
71. 15 $ptr1->display(); # Get all data for object
    
72. 16 $ptr2->display();
    
73. 17 $ptr3->display();
    
74. 18 print "\nThe major for ", $ptr1->get("Name")," is ", $ptr1->get("Major"), ".\n\n";

复制代码

q1208c

没看到 紫色.

如果一个 文件的末尾是 1; 这样的, 好象相当于 exit 1; 或者 return 1

hejianbu437

回复 2# q1208c

恩，了解了！
但是我执行代码2的时候为什么会报错呢？


   

q1208c

回复 3# hejianbu437


你得把错误贴上来, 我才能看看是什么问题, 我水平有限, 暂时还不能只看你贴上来的代码就预测可能发生的错误.      

hejianbu437

回复 4# q1208c

我贴了。在第二行啊，哥。。。


   

wand65

。。。。。。。。。。。。。。。。。。。。

pitonas

{:2_172:}

1. bless ($ref, $class); # bless anonymous subroutine
   
2. }

复制代码

|
|
V

1. };
   
2. bless ($ref, $class); # bless anonymous subroutine

复制代码

52

1. }

复制代码

|
|
V

1. }
   
2. 1;

复制代码

回复 5# hejianbu437


   

wand65

回复 1# hejianbu437

7 楼是对的，
（第二条 的那个 1；楼主是有的，没问题）
}” 这个部分 是 教程的错误，我说的是perl 实例精解中文版。


多谢七楼指点

1. else{                                                   
   
2. die "Access type should be set or get";                 
   
3. }                                                      
   
4. print "New student created, we have ", ++$students,     
   
5. " students.\n";
   
6. };                                    
   
7. bless ($ref, $class); # bless anonymous subroutine      
   
8.                                                    
   
9. } # End constructor                              

复制代码

hejianbu437

回复 7# pitonas

搞定 感谢！