<Intermediate Perl>中面向对象的代码有一段不明白
本帖最后由 gentoo2011 于 2011-06-04 22:43 编辑
在该书的P123页中,有一段代码:
复制代码
在该书的P123页中,有一段代码:
- { package Animal;
- sub speak {
- my $class = shift;
- print "a $class goes ", $class->sound, "!\n";
- }
- }
-
- { package Mouse;
- @ISA = qw(Animal);
- sub sound {'squeak'}
- sub speak {
- my $class = shift;
- $class->Animal::speak(@_); ======>这行不明白,请问它们的优先级是怎样的?
- print "[but you can barely hear it!]\n";
- }
- }
作者: gentoo2011 发布时间: 2011-06-04
这里是个语法,表示在 Animal 类中查找 speek 方法,通常用 SUPER 就可以了。-> 左边用来标明传第的第一个参数
作者: zhlong8 发布时间: 2011-06-04
回复 zhlong8
请问@_就是第二个参数吗?
请问@_就是第二个参数吗?
作者: gentoo2011 发布时间: 2011-06-04
QUOTE:
回复 zhlong8
请问@_就是第二个参数吗?
gentoo2011 发表于 2011-06-04 23:19
请问@_就是第二个参数吗?
gentoo2011 发表于 2011-06-04 23:19
方法调用传入的第一个参数就是 -> 左面的那个,方法名后面的括号里面的是剩下的参数。注意这里对象已经在前面 shift 出了,这里其实就是实现个调用父类中的同名方法的作用。但是这个语法适用的范围更广
作者: zhlong8 发布时间: 2011-06-04