我正在尝试从1个Perl脚本连接到同一个MySQL实例上的2个数据库。
我在迁移脚本中使用它,我从原始数据库中获取数据并将其插入到新数据库中。
连接到1个数据库,然后尝试启动与同一用户的第二个连接,只需将当前数据库更改为新数据库。
#!/usr/bin/perl
use DBI;
use strict;
my $driver = "mysql";
my $database1 = "db1";
my $dsn1 = "DBI:$driver:database=$database1";
my $userid = "userhead";
my $password = "pwdhead";
my $database2 = "db2";
my $dsn2 = "DBI:$driver:database=$database2";
my $dbh1 = DBI->connect($dsn1, $userid, $password ) or die $DBI::errstr;
my $dbh2 = DBI->connect($dsn2, $userid, $password ) or die $DBI::errstr;
my $sth = $dbh2->prepare("INSERT INTO Persons") $dbh1->prepare("SELECT *FROM Persons");
$sth->execute() or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
在上面的例子中,我试图从一个数据库表复制到另一个数据库表。但我在运行脚本时遇到错误。请帮帮我
答案 0 :(得分:7)
猜测,您正在尝试使用相同的数据库句柄连接到两个数据库。如果您需要操作两个单独的连接,那么您需要两个单独的手柄
该程序使用data_sources
类方法发现所有可用的MySQL数据库,并创建与每个数据库的连接,将句柄放在数组@dbh
中。您可以正常使用该数组的每个元素,例如
my $stmt = $dbh[0]->prepare('SELECT * FROM table)
您可能希望手动设置@databases
数组,或者两个数据源的用户名和密码可能不同,因此可能需要对此进行一些修改
use strict;
use warnings 'all';
use DBI;
my $user = 'username';
my $pass = 'password';
my @databases = DBI->data_sources('mysql');
my @dbh = map { DBI->connect($_, $user, $pass) } @databases;
您需要从源表中选择数据,一次获取一行,然后将每行插入到目标表中
以下是一个可行的方法,但您需要调整VALUES
语句的INSERT
中的问号数量以匹配列数
请注意,如果您只是想复制整个数据集,那么有更好的方法可以解决这个问题。特别是,如果您有任何外键约束,那么在填充它所依赖的表之前,您将无法添加数据
#!/usr/bin/perl
use strict;
use warnings 'all';
use DBI;
my $userid = "userhead";
my $password = "pwdhead";
my ($dbase1, $dbase2) = qw/ db1 db2 /;
my $dsn1 = "DBI:mysql:database=$dbase1";
my $dsn2 = "DBI:mysql:database=$dbase2";
my $dbh1 = DBI->connect($dsn1, $userid, $password ) or die $DBI::errstr;
my $dbh2 = DBI->connect($dsn2, $userid, $password ) or die $DBI::errstr;
my $select = $dbh1->prepare("SELECT * FROM Persons");
my $insert = $dbh2->prepare("INSERT INTO Persons VALUES (?, ?, ?, ?, ?)");
$select->execute;
while ( my @row = $select->fetchrow_array ) {
$insert->execute(@row);
}
如果需要单独处理源数据中的列,则可以使用命名标量而不是数组@row
。喜欢这个
while ( my ($id, $name) = $select->fetchrow_array ) {
my $lastname = '';
$insert->execute($id, $name, $lastname);
}
答案 1 :(得分:1)
计划A(特别是如果是一次性任务):
在源计算机上运行mysqldump
;将输出提供给目标计算机上的mysql
。这将更快更简单。如果您使用的是Unix机器,请使用Perl中的exec()
(如果您愿意)。
B计划(特别是重复任务):
如果表格不是"太大",请执行一个SELECT
将所有行提取到Perl中的数组中。然后INSERT
行进入目标机器。如果您构建多行INSERT
或创建CSV文件并使用LOAD DATA
而不是INSERT
,则可以加快(通过一些努力)。