今天看intermediate perl中发现一个地方

dadastan

十四章关于AUTOLOAD

1. sub AUTOLOAD {
   
2.   my @elements = qw(color age weight height);
   
3. our $AUTOLOAD;
   
4. if ($AUTOLOAD =~ /::(\w+)$/ and grep $1 eq $_, @elements) {
   
5.   my $field = ucfirst $1;
   
6.   {
   
7.     no strict 'refs';
   
8.     *{$AUTOLOAD} = sub { $_[0]->{$field} };
   
9.   }
   
10.   goto &{$AUTOLOAD};
    
11. }

复制代码

为什么把

1.     no strict 'refs';
   
2.     *{$AUTOLOAD} = sub { $_[0]->{$field} };

复制代码

变成单独的一块

1. {
   
2.     no strict 'refs';
   
3.     *{$AUTOLOAD} = sub { $_[0]->{$field} };
   
4. }

复制代码

然后使用closure来定义&{$AUTOLOAD}呢？
不加这个花括号也可以啊

另外，下面的

1. goto &{$AUTOLOAD};

复制代码

这里不也是用了symbolic ref了么，为什么这里不用no strict 'refs' ？

dadastan

回复 1# dadastan


    oh，我明白了那里为什么要用closure，因为 no strict 'refs' 可能会影响到下面其他不需要symbolic refs的代码（虽然这里没有影响）

但是我还是有点不明白。为什么goto &{$AUTOLOAD}这里居然不用no strict 'refs'  ？

zhlong8

下面那个是语法，& 的作用仅仅是标明保留 @_ 这种特殊的跳转方式。如果它是表达式那不就成 goto 到这个函数调用的结果那里去了。