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.如何打印我想要的所有内容 - ＆＃34;创建设置表（我的内容......）  请有人提出一些想法，谢谢你......

Answer 1

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

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

Answer 2

<强>尝试

use DDP;

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