Question

来自perldoc perlobj (引用于此极好的 <回答):

my $fred = Critter->find("Fred");
$fred->display("Height", "Weight");

.上述代码主要相当于:

my $fred = Critter::find("Critter", "Fred");
Critter::display($fred, "Height", "Weight");

究竟有什么区别, 留下错误检查以确认第一个参数是一个幸运对象或一个有效的类名吗? 例如, 为什么它“ 坚固” 基本上是 , 但并不完全相同?

Answer 1

Say Critter 是没有定义 find 或 display 的子类。信件不是一对一, 因为硬联线子电话不会像 perlobj 文件所解释的那样进行方法搜索。

Perl 怎么知道子例程在哪个包件中? 通过查看箭头左侧, 它必须是包件名称或对象的引用, i. e. , 是包件的特惠。不论哪种方式, 包件是 Perl 开始寻找的。如果包件没有该名称的子例程, Perl 开始在包件的任何基类中寻找它, 等等。

对于子集,您必须确切知道它静态地在哪里, 或者您的程序会 die 。要调用一种方法, 您只需要指定在哪里开始搜索它。

例如:

#! /usr/bin/env perl package Critter; sub new { bless {}, shift } sub display { ref($_[0]) . " display" } package SuperCritter; @SuperCritter::ISA = qw/ Critter /; package main; my $super = SuperCritter->new; # one of these things is not like the other warn $super->display; warn Critter::display($super); warn SuperCritter::display($super);

产出:

SuperCritter display at ./call-demo line 14. SuperCritter display at ./call-demo line 15. Undefined subroutine &SuperCritter::display called at ./call-demo line 16.

友情链接