Perl:如何动态创建对象？

Question

我的目标是能够使用 $obj像这样:

print $obj->hello() . $obj->{foo};

我想创建一个内联对象，也许使用这样的东西:

my $obj = (
    foo => 1,
    hello => sub { return 'world' }
);

但是当我尝试使用 $obj作为一个对象，我得到一个错误，说 $obj 没有被祝福。是否有一些基类(如 PHP 中的 stdClass )我可以用来祝福散列，以便我可以将它用作对象？

对于那些了解 JavaScript 的人，我正在尝试执行以下操作，但在 Perl 中:

# JS CODE BELOW
var obj = { foo: 1, hello: function () { return 'world' } };
echo obj.hello() + obj.foo;

Answer 1

一种更 Perlish 的方法是为您的对象所需的方法创建一个单独的 namespace ，并为 bless 创建一个单独的 namespace 。使这些方法可用于您的对象的对象。执行此操作的代码仍然非常简洁。

my $obj = bless { foo => 1 }, "bar";
sub bar::hello { return 'world' };

正如 gbacon 建议的那样，如果你愿意写 $obj->{hello}->()而不是 $obj->hello() ，可以跳过祝福操作。

my $obj = { foo => 1, hello => sub { return 'world' } };