perl - 如何使用 Perl dbd-sqlite 将另一个 sqlite db 附加到 $dbh

Question

如何在 Perl 中将多个 sqlite 数据库附加到单个 $dbh 中？在命令行中，我可以在交互式 sqlite3 rpel 中附加，在 Perl 中使用 dbd-sqlite 怎么样？

抱歉，如果这里已经回答过，perlmonks 或类似的，但无法找到正确的答案。

Answer 1

do执行任意 SQL 语句。

$dbh->do('attach foobar as foobar');

foobar的表然后是可查询的。

Answer 2

你甚至可以这样做：

use DBI;
my $dbfile1 = 'test1.db'; # will be `main`
my $dbfile2 = 'test2.db'; # will attach as `other`
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile1","","") or die "dbh";
$dbh->do('attach ? as ?', undef, $dbfile2, 'other') or die "attach";