perl -比较来自两个数据库的两个SQL查询的两列

use DBI;

# 连接第一个数据库
my $dbh1 = DBI->connect("DBI:mysql:database=db1;host=localhost", "username", "password");

# 执行第一个SQL查询
my $sth1 = $dbh1->prepare("SELECT column1 FROM table1");
$sth1->execute();

# 获取第一个查询结果的两列数据
my @data1;
while (my ($column1) = $sth1->fetchrow_array()) {
    push @data1, $column1;
}

# 连接第二个数据库
my $dbh2 = DBI->connect("DBI:mysql:database=db2;host=localhost", "username", "password");

# 执行第二个SQL查询
my $sth2 = $dbh2->prepare("SELECT column2 FROM table2");
$sth2->execute();

# 获取第二个查询结果的两列数据
my @data2;
while (my ($column2) = $sth2->fetchrow_array()) {
    push @data2, $column2;
}

# 比较两个查询结果的两列数据
for my $i (0 .. $#data1) {
    if ($data1[$i] eq $data2[$i]) {
        print "Row $i: Match\n";
    } else {
        print "Row $i: Not match\n";
    }
}

# 断开数据库连接
$sth1->finish();
$dbh1->disconnect();
$sth2->finish();
$dbh2->disconnect();