perl获取数据库查询返回数组大小

最新推荐文章于 2025-08-24 09:33:14 发布

原创最新推荐文章于 2025-08-24 09:33:14 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #数据库 #matrix #each

本文介绍了一种使用Perl从数据库获取结果集并处理的方法。通过使用$dbh->fetchall_arrayref()函数，可以将查询结果作为数组引用返回，并进一步处理这些数据。特别地，文章详细解释了如何遍历二维数组来打印每行数据。

my ($matrix_ref); #reference to array of references
$matrix_ref = $sth->fetchall_arrayref(); $fetch all rows

#determine dimensions of matrix
my ($rows) = (!defined($matrix_ref)?0:scalar(@{$matrix_ref}));
my ($cols) = ($rows == 0 ? 0:scalar(@{$matrix_ref->[0]}));

for(my $i = 0; $i < $rows; $i++){ #print each row
my ($delim) = "";
for(my $j = 0; $j < $cols; $j++){
print $delim.$matrix_ref->[$i][$j];
$delim =",";
}
print "/n";
}

如果结果集为空，则fetchall_arrayref()返回一个对空数组的引用。如果出现错误，则结果为
undef,所以如果没有启动raiseError,则在开始使用它以前，要确保检查返回值。