Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi all,

I am using DBIx::Class to work with DB. Works fine, the development is really quick. Now I need to lock a table - but don't know how. I didn't find any documentation or example on this. Is it possible?

I am trying to do something like this:

# lock Table here my $obj_rs = $schema->resultset("Table")->search({ col1 => $val }); my $obj = $obj_rs->next; my $old_val = $obj->col2; my $new_val = maybe_expensive_computation($old_val); $obj->col2($new_val); $obj->update; # ... fetch and update some more rows # unlock Table here

This code could be run in multiple processes in parallel. I need the maybe_expensive_computation() to be run by 1 process at most because it can be influenced by another process running the same function. If more than one process tries to do the computation, only one should "get in", others should wait.

I can solve all of this with hand-written SQL and DBI (LOCK, few SELECTs and UPDATEs, UNLOCK), but I'd rather use DBIx::Class.

So the question I'd like to ask: how to lock a table while accessing DB with DBIx::Class?

Thank you.

ico

Replies are listed 'Best First'.
Re: DBIx::Class and locking tables
by thundergnat (Deacon) on Aug 12, 2010 at 14:56 UTC

    I haven't used it personally but it seems like

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

    should do what you want. See the docs for DBIx::Class::Storage::DBI

      Thank you, problem solved. That was really what I wanted. It's done a bit differently, but now it was easy.

      There is one thing. Generated SQL sometimes refers to table by it's name and sometimes by alias 'me'. I had to lock the table as itself and with alias, but then it worked.

      My code:

      my $res = $schema->storage->dbh_do(sub { my ($storage, $dbh) = @_; $dbh->do(" LOCK TABLES tbl AS tbl WRITE, tbl AS me WRITE "); }); # now use locked tables as usual

      Unlocking is done the same way.

      ico