问个看上去很晕的问题 关于*这个符号的

hdc1112

我看perl的面向对象的章节的时候，看到了AUTOLOAD这个函数，以下代码是通过AUTOLOAD来实现对perl类中的属性的set和get方法

sub AUTOLOAD {
  my @elements = qw(color age weight height);

  our $AUTOLOAD;
  if ($AUTOLOAD =~ /:\w+)$/ and grep $1 eq $_, @elements) {
    my $field = ucfirst $1;
    {
      no strict 'refs';
      *{$AUTOLOAD} = sub { $_[0]->{$field} };
    }
    goto &{$AUTOLOAD};
  }

if ($AUTOLOAD =~ /::set_(\w+)$/ and grep $1 eq $_, @elements) {
  my $field = ucfirst $1;
  {
    no strict 'refs';
    *{$AUTOLOAD} = sub { $_[0]->{$field} = $_[1] };
  }
  goto &{$AUTOLOAD};
}


croak "$_[0] does not understand $method\n";
  }

我想问下里面的*号相关的行，*号是什么意思？？

Monox

*是对符号表的引用，这里，是把匿名子过程赋给由$AUTOLOAD的值所指定的字符串为名称的变量，从而产生一个以这个名称命名的函数。

[ 本帖最后由 Monox 于 2008-7-29 22:13 编辑 ]

hdc1112

也就是说用*号加个变量，就是定义一个函数对吗？我对符号表不懂，解释下。。。

Monox

符号表比如*perl,包括$perl,@perl,%perl，当然也包括叫perl的文件句柄和函数，符号表可以整体赋值如：$dot = 123; @dot = (123,145);*perl=*dot;于是就有了$perl=123,@perl=(123,145).也可以单独赋值，像你的程序里的那样，仅产生了一个函数。