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

gentoo2011

在该书的P123页中,有一段代码:

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

复制代码

zhlong8

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

gentoo2011

回复 2# zhlong8

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

zhlong8

回复  zhlong8

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

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

gentoo2011

回复 4# zhlong8

呵呵,明白了,非常感谢兄弟的指点,节日快乐!:wink: