詢問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. }
    

復(fù)制代碼

從網(wǎng)上查的->的作用有兩個(gè)①解引用，②調(diào)用類或者對(duì)象的方法
像這樣的$self->{STATUS}="working";，這句是什么含義，->的作用又是什么？

flw

你說的資料是 flw 的回復(fù)吧。
仔細(xì)看看應(yīng)該就懂了。

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

4059056

發(fā)完之后我又仔細(xì)看了下，是解引用回復(fù) 2# flw