询问perl 中->的作用

4059056

代码如下

1. sub new
   
2. {
   
3.   my ($class, $kbobj, %options)=@_;
   
4. 
   
5.   return undef if(!defined($kbobj));
   
6. 
   
7.   my $self={};
   
8. 
   
9.   bless $self, $class;
   
10. 
    
11.   my %defaults = (
    
12.     'attributes' => 'Memory',
    
13.   );
    
14. 
    
15.   my $item;
    
16.   # Set defaults and options
    
17.   foreach $item (keys %defaults) {
    
18.     if(defined($options{$item})) {
    
19.       $self->{"OPTION_$item"} = $options{$item};
    
20.     } else {
    
21.       $self->{"OPTION_$item"} = $defaults{$item};
    
22.     }
    
23.   }
    
24. 
    
25.   $self->{KB}=$kbobj;
    
26. 
    
27.   my %data=();
    
28.   $self->{ATTRIBUTES}=\%data;
    
29.   my @list=();
    
30.   $self->{RECURSION_ATTRIBUTES}=\@list;
    
31. 
    
32.   $self->{CONDITIONS}=();
    
33.   $self->{DEPTH}=0;
    
34.   $self->{STATUS}="working";
    
35.   $self->{STATUS_OBJECT}=undef;
    
36.   $self->{ITERATE_ATTRIBUTE}=();
    
37.   $self->{ITERATE_ATTRIBUTES_TO_DO}=();
    
38. 
    
39.   $self->{MIXED_MODE} = 0;
    
40. 
    
41.   return $self;
    
42. }
    

复制代码

从网上查的->的作用有两个①解引用，②调用类或者对象的方法
像这样的$self->{STATUS}="working";，这句是什么含义，->的作用又是什么？

flw

你说的资料是 flw 的回复吧。
仔细看看应该就懂了。

$self-> 这里就是解引用。

4059056

发完之后我又仔细看了下，是解引用回复 2# flw