2

我试图弄清楚bless在 perl 中做了什么——在阅读了他们的文档之后——我不是很清楚。如果我错了，请纠正我，它允许在类或对象中创建属性吗？

有人编写了这段代码

package Main::Call;

sub new
{
    my ($class, $call) = @_;
    my $self = $call;
    bless($self, $class);
    return $self;
}

例如：

if (($statement = $db->prepare($sql)) && $statement->execute())
{
    while (my $rt = $statement->fetchrow_hashref())
    {
        my $obj = Main::Call->new($rt);
        push @reserv_call_objs, $obj;
    }

    return \@reserv_call_objs;
}

我正在尝试将其转换为 PHP。

所以我假设它会是这样的？

class Call {

 public function __construct($arr) { 
    foreach($arr as $key => $value)
    {
       $this->$value = '';
    }   
 }

 public function __set($key, $value) {
    $this->$key = $value;
 }

}
4

2 回答 2

2

该bless函数将类与引用相关联。也就是说，你传递给 new函数的任何东西都将成为Main::Call类的对象，只要它是引用类型。你可以传入一个列表引用，它就变成了一个对象。你可以传入一个标量引用，它就变成了一个对象。

没有办法在 PHP 中做完全相同的事情，但是当您将哈希引用传递给new.

于 2014-01-02T00:21:22.257 回答
2

Perl 有一个不同寻常的对象模型：一个对象是一个被“祝福”到一个类中的引用。只是注释引用，bless以便可以在引用上调用方法。

my $data = 1;
my $ref = \$data; # the reference can be of any type
$ref->foo; # this would die: Cannot call method "foo" on unblessed reference
bless $ref => 'Foo'; # *magic*
$ref->foo; # now this works

package Foo;
sub foo { print "This works\n" }

但通常引用只在类的构造函数中得到祝福。

Perl 并没有规定一个对象应该如何存储它的数据。最常见的方法是使用哈希引用。这new类似于您的 PHP __construct：

sub new {
  my ($class, %init) = @_;
  return bless \%init => $class;
}

可以称为 like Foo->new(key => $value, ...)。

你的 Perlnew所做的很不寻常：它将给定的参数加到适当的类中。这假设$call已经是一个参考。如果$call已经被祝福到某个包中，那么它被重新祝福到 this$class中。

将其转换为 PHP 的最明智的方法是将其填充$call到实例的属性中，大致就像您所做的那样。

于 2014-01-02T00:23:27.703 回答