如何在DBIx：Class中锁定表？

Question

我正在写一个小应用程序

• Mojolicious
• DBIx :: Class
• Hypnotoad，这是一个预分支的Web服务器。
• 的MySQL

在我的应用程序中，我需要执行以下操作；

1. 做一些复杂的处理（需要一分钟左右的时间来完成）
2. 将上述处理后的结果数据插入表中
3. 获取某些表的最后一个自动增量，进行更多处理。
4. 将（3）中的值用作插入另一个表（联结表）的一部分

这是从第2步开始的一些示例代码

#step 2
my $device = $device_rs->create(
 {
  devicename      => $deviceName,
  objects         => \@objects
  object_groups   => \@objectgroups,

}
);

#step 3
my $lastogid  = $db->resultset('ObjectGroup')->get_column('objectgroupid')->max;
my $lastobid  = $db->resultset('Object')->get_column('objectid')->max;

my $obgcount = scalar(@objectgroups);
my $objcount = scalar(@objects);

my $ogoffset = $lastogid - $obgcount;
my $oboffset = $lastobid - $objcount;

#now increment the object/group ids by the offset which will be inserted into the many-  many table
foreach my $hash (@childobjects) {
 $hash->{'objectgroup_objectgroupid'} += $ogoffset;
 $hash->{'object_objectid'}           += $oboffset;
}

#step 4  - populate the junction table
$db->resultset('ObjectGroupHasObjects’)->populate(\@childobjects);

现在由于一次执行多个线程，从步骤3获得的值可能不正确（对于当前“设备”）。

我正在尝试找到解决此问题的方法。 我目前唯一能想到的就是在步骤2）之前对数据库表进行锁定，并在步骤4）之后进行解锁。

如何在DBIx :: Class中执行此操作，这是否可能解决我的问题？

谢谢。

Answer 1

就像是

$schema->dbh_do("LOCK TABLES names");
...
...
$schema->dbh_do("UNLOCK TABLES");

资料来源： http ： //www.perlmonks.org/？ node_id = 854538

另请参见： 使用DBIx :: Class :: ResultSet的find_or_create方法时如何避免竞争条件？

和SQLHackers :: SELECT＃SELECT _..._ FOR_UPDATE