mysql - Perl DBIx::Class 截断表

Question

我正在寻找一种使用 DBIx::Class 截断表的方法，但我无法在网上找到任何东西，除了一些建议，例如删除所有行而不是截断 table 。 不幸的是，TRUNCATE 速度要快得多，我希望能正确地完成它。现在，我想我会使用 DBI 进行截断，但它有点缺点。

这有可能吗？

提前致谢:-)

Answer 1

您可以使用一个小的辅助函数直接在您的 DBIx::Class 模型中执行 SQL:

sub _sql_do {
  my ( $self , $sql ) = @_ ;

  return $self->storage->dbh_do(
    sub {
      my ( $storage , $dbh , $sql ) = @_ ;
      my $sth = $dbh->prepare( $sql ) ;
      $sth->execute() ;
    },
    $sql
  );
}