如何从结果集中返回多条记录？

Question

我正在使用 perl dbi 并获取 sql 结果，但它是以数组的形式出现的。问题是，它只返回 1 个数组元素。我试图推动获得下一个元素，但什么也没有。我确信（使用其他工具）我可以看到不止一个值。它是（来自其他工具）我得到多个 ddls。通过我的查询，我只得到其中一个。这是我的查询：

my $rows = $dbh->selectall_arrayref
                  ("show SELECT * FROM TABLE
                   INNER JOIN TABLE1 
                   ON bla bla ;");

my $len = @$rows;
print  $len;
foreach $h (@$rows) {
    $st = $h->[0];
    $st =~ s/(\d),(\d)/\1|\2/g;
    @lines = split/,/,$st;
    foreach $x (@lines) {
        print FH $x . "\n";
    }
}

我的问题是如何移动相同的数组并从同一行获取下一个结果集？谢谢！

以上代码的结果如下：

主索引 (ProcID,CollectTimeStamp);ONE)NICODE NOT CASESPECIFIC,,OT NULL,C,

我不认为它带回了整个内容，不知何故它不完整

Answer 1

[这可能算作“不是答案”，但我正在尝试从 OP 中提取更多有用的信息，向他展示我希望他在答案中运行的代码要容易得多]

我们仍然真的不知道你想在这里做什么。而且，老实说，我不相信你会这样做:-)

让我们看看原始数据 - 没有您添加的任何处理。请尝试运行以下代码，然后edit your question 添加输出（如果返回多行，则只需包括一对）。

my $rows = $dbh->selectall_arrayref
                  ("show SELECT * FROM TABLE
                   INNER JOIN TABLE1 
                   ON bla bla ;");

foreach my $row (@$rows) {
  print join(' / ', @$row), "\n";
}

那么，请告诉我们（以这些行为例）您想要什么输出。