疑问about Object Oriented Perl

zhlong8

午夜凋零 发表于 2012-10-22 15:54
嗯。确实需要思考。我发现我思考的不够。受教了。。。

print $fh "123";

比如让你用 Perl 实现个 call_method 来实现上面说的 &SUB(SCALAR, PARAMETERS) 这个语义怎么做？

sub call_method {
    my $method = shift;
    my $obj = $_[0];
    # 错误 $obj 类型，和引用是否是对象

    my $sub = ??? # 查找，检测方法是否存在

    goto &$sub;
}

比如 PACKAGE->import(qw(a b c)); 变成 call_method('import', PACKAGE, qw(a b c))
$k->next 变成 call_method('next', $k)
$m->$s   变成 call_method($s, $m)
$m->SUPER::new('string') 变成 call_method('SUPER::new', $m, 'string')

...

你能把这个函数写出来就行了

午夜凋零

zhlong8 发表于 2012-10-22 16:36
比如让你用 Perl 实现个 call_method 来实现上面说的 &SUB(SCALAR, PARAMETERS) 这个语义怎么做？

s ...

1. sub call_method {
   
2.     my ( $method, $obj, @paras ) = @_;
   
3.     $obj->$method(@paras);
   
4. }

复制代码

只能写到这个程度，检查method是否存在这个不会。
如果$obj是一个实例，用ref可以得到它bless的class，但是怎样判断是否是一个存在着的class name就不会了。（笨点的方法：ref总共有HASH ARRAY那十多种返回值，全都取反。。。）

iLRainyday

碰到这种觉得可能是作者写错的情况，我通常第一件事就是去看看这本书的勘误。