如何使用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";