perl 从数组中获取元素，嵌套

Question

我正在使用 perl DBI 模块以数组格式从数据库中取回数据。到目前为止我的代码如下所示：

$rows = $dbh->selectall_arrayref("show SELECT * FROM table SAMPLE 3");
foreach $h (@$rows) {
  foreach $x (@$h) {
    printf "%s\n", $x;
  }
}

在调试模式下中断后，我看到我的数据如下：($h)

 0 ARRAY(0x32c40f8)
   0 "CREATE SET TABLE (my contents....)

我的问题是：1.我怎么知道数组有多大以及 2.如何打印我想要的所有内容 - “CREATE SET TABLE（我的内容....）请有人分享一些想法，谢谢...

Answer 1

尝试

use DDP;

my $rows = $dbh->selectall_arrayref("show SELECT * FROM table SAMPLE 3");
my $len = @$rows;
p $len;
foreach $h (@$rows) {
    p $h;
}

Answer 2

好吧，终于想通了。由于它是数组元素 [0]，我所要做的就是将其分配给一个变量，然后进行拆分。希望这可以帮助。谢谢！

 $st= $h->[0];
 @lines = split/,/,$st;

perl get elements from array, nested