<Intermediate Perl>中面向对象的代码有一段不明白

本帖最后由 gentoo2011 于 2011-06-04 22:43 编辑

在该书的P123页中,有一段代码:
  1. { package Animal;
  2.   sub speak {
  3.     my $class = shift;
  4.     print "a $class goes ", $class->sound, "!\n";
  5.   }
  6. }

  7. { package Mouse;
  8.   @ISA = qw(Animal);
  9.   sub sound {'squeak'}
  10.   sub speak {
  11.     my $class = shift;
  12.     $class->Animal::speak(@_);              ======>这行不明白,请问它们的优先级是怎样的?
  13.     print "[but you can barely hear it!]\n";
  14.   }
  15. }
复制代码

作者: gentoo2011   发布时间: 2011-06-04

这里是个语法,表示在 Animal 类中查找 speek 方法,通常用 SUPER 就可以了。-> 左边用来标明传第的第一个参数

作者: zhlong8   发布时间: 2011-06-04

回复 zhlong8

请问@_就是第二个参数吗?

作者: gentoo2011   发布时间: 2011-06-04



QUOTE:
回复  zhlong8

请问@_就是第二个参数吗?
gentoo2011 发表于 2011-06-04 23:19




    方法调用传入的第一个参数就是 -> 左面的那个,方法名后面的括号里面的是剩下的参数。注意这里对象已经在前面 shift 出了,这里其实就是实现个调用父类中的同名方法的作用。但是这个语法适用的范围更广

作者: zhlong8   发布时间: 2011-06-04