问段代码 这个sub { ${ $_[0] } } 啥意思？

3gtan

1. 
   
2. package ShiftString;
   
3. 
   
4. use overload
   
5.     '>>' => \&right_shift,
   
6.     '""' => sub { ${ $_[0] } };
   
7. 
   
8. sub new {
   
9.     my $class = shift;
   
10.     my $value = shift;
    
11.     return bless \$value => $class;
    
12. }
    
13. 
    
14. sub right_shift {
    
15.     my ($x, $y) = @_;
    
16.     my $value = $x;
    
17.     substr($value, -$y) = "";
    
18.     return bless \$value => ref($x);
    
19. }
    
20. 
    
21. $camel = ShiftString->new("Camel");
    
22. $ram = $camel >> 2;     #****************貌似 $camel 调用 overload的 “” 返回 dereference “Camel” 才对啊。
    
23. print $ram;            # Cam
    
24. 
    

复制代码

sub right_shift {
    my ($x, $y) = @_;
    my $value = $x;
    substr($value, -$y) = "";
    return bless \$value => ref($x);
}
这部分里面my $value = $x; 应该是$value = $$x;
我的理解是 匿名数组 返回 第一个参数的  dereference
但是看这个例子 貌似 $camel 应该返回 字串符

然后 sub right_shift  
里面竟然用 $$X 又一次 dereference？？？？

3gtan

不能连续输入两个$$啊
code里面
my $value = $$x;
的

3gtan

我在
sub right_shift {
    my ($x, $y) = @_;
    my $value = $$x;
    print $x,$$x,"\n";
    substr($value, -$y) = "";
    return bless \$value => ref($x);
}
的里面加上print了
结果是 $x  和$$x 的结果一样？？
为啥呢？

nuclearxin

.....难道 在 sub里面 “” 已经起作用啦？？？？？

nuclearxin

貌似看出来啦
有个优先级的问题吧
发现被“”的overload发生在 被bless 之后的 reference；这就是为啥 print $x,$xx，一样的原因
还有就是 $camel >> 2
是 “”先作用还是 >> 先作用？
貌似是 >>先作用 忽略“”啦