DBM::Deep：事务问题

Question

我从未做过交易（就编程而言），因此我不知道我的脚本是否有问题或其他问题：

#!/usr/bin/env perl
use warnings;
use 5.012;
use DBM::Deep;

my $db = DBM::Deep->new( 'foo.db' );

my $trans = $db->supports( 'transactions' );
say 'Does ', $trans ? '' : 'NOT ', 'support transactions'; 

$db->{key} = 'value';
$db->begin_work;
$db->{key1} = 'value2';
$db->rollback;
$db->{key1} = 'value1';
$db->commit;

输出：

# Does support transactions
# DBM::Deep: Cannot allocate transaction ID at ./perl1.pl line 12

部分评论：

my $db = DBM::Deep->new( file => 'my.db', num_txns => 1 );

$db->{key} = 'value';
$db->begin_work;
$db->{key1} = 'value2';
$db->rollback;
$db->begin_work;
$db->{key1} = 'value1';
$db->commit;

Answer 1

抱歉花了这么长时间才回答这个问题 - 我几天前才发现它。 （我是 DBM::Deep 的维护者。）

问题是 num_txns 仅在创建文件时设置。 （这是因为 DBM 文件在磁​​盘上的布局方式不同。）创建 DBM 文件后，将从文件中读取 num_txns 值，并在调用 时忽略该值。新的（）。因此，一旦您更改了调用以指定 num_txns，除非您还使用了新的 DBM 文件，否则它不会有任何帮助。

虽然我无法在不显着改变 DBM 文件结构工作方式的情况下改变这种行为（这可能是一个好主意，但要做的事情很大），但您应该已经收到警告，并且应该有更好的文档。我已经打开 https://github.com/robkinyon/dbm-deep/issues/12< /a> 跟踪此问题及其修复。

Answer 2

根据 文档 < code>rollback 命令结束事务。

rollback() 这将放弃更改
交易内完成的
主线并结束交易。

因此，您需要在回滚后启动新的事务。

$db->{key} = 'value';
$db->begin_work;
$db->{key1} = 'value2';
$db->rollback;
$db->begin_work;
$db->{key1} = 'value1';
$db->commit;

或者你可以做类似

sub my_rollback {
  my $db = shift;
  $db->rollback();
  $db->begin_work();
}

$db->{key} = 'value';
$db->begin_work;
$db->{key1} = 'value2';
my_rollback $db;
$db->{key1} = 'value1';
$db->commit;

或 一些黑魔法的事情，你可以保持面向对象的风格

sub my_rollback {
  my $db = shift;
  $db->rollback();
  $db->begin_work();
};
{
  no strict 'refs';
  *{'DBM::Deep::my_rollback'} = \&my_rollback;
}

$db->{key} = 'value';
$db->begin_work;
$db->{key1} = 'value2';
$db->my_rollback;
$db->{key1} = 'value1';
$db->commit;