如何在不先选择记录的情况下在 Class::DBI 中进行更新？

Question

要使用 Class::DBI 进行插入，您可以简单地执行以下操作：

my $object = Object::DB->insert({ a => 1, b => 2, c => 3, ...});

但是没有这样的更新。 我能想到的最好办法是先选择记录，然后更新它：

my $object = Object::DB->retrieve($id);
my $object->set( a => 1, b => 2, c => 3, ...};
$object->update;

这效率不高，因为我必须先执行 SELECT，然后执行 UPDATE，而不是只执行一次 UPDATE。

有没有更好的方法来使用 Class::DBI 来做到这一点？ 我不想做 42 $object->a(1), $object->b(2) 等，$object->update;

Answer 1

据我所知， Class::DBI 没有一个好的方法来做到这一点，正如您所注意到的，它的 update() 方法应该在之前已经被调用的对象上调用从数据库加载。

然而，您也许能够说服 Class::DBI 做您想做的事情，但是，可以使用以下方法：

# Make new "empty" object
my $o = My::CDBI::Object->new;

# Set the primary key column and discard the change
$o->set(your_pk_column => 123);
$o->discard_changes;

# Set your other columns
$o->set(a => 'foo', b => 'bar');

# Do the update
$o->update;

如果此功能对您很重要并且您还没有深入了解您的项目，那么您肯定会拥有更好的运气较新的 Perl ORM，例如 Rose::DB::Object 或 < a href="http://www.perlfoundation.org/perl5/index.cgi?dbix_class" rel="nofollow noreferrer">DBIx::Class。 DBIx::Class 甚至包括 a Class::DBI 兼容性层。

Answer 2

我发现执行此操作的一种方法是覆盖对象的默认迭代器类。 这允许您拥有单个对象的集合，并在集合上使用更新方法。 Class::DBI 为此提供了一个方法：

__PACKAGE__->iterator_class('MyClass::CDBI::Iterator');

这允许您在迭代器类中创建一个更新方法，该方法可以保存集合中的所有对象。 因此，您的代码可能看起来像这样：

my $collection = Object::DB->search_where({id => {'>=', 0}});
foreach my $obj ($collection->next()) {
  $obj->a('bob');
  $obj->b('tom');
}
$collection->update();

这使得一些非常好的自我记录代码。 如果您走这条路，我还建议在 update() 发生时使用 is_changed 方法。 它将通过不更新未更改的行来帮助您节省时间。