perl - DBI:selectall_arrayref 和列名

Question

当我以这种方式获取数据时，是否可以访问列名和列类型，或者我是否需要明确的prepare才能实现这一点？

use DBI;

my $dbh = DBI->connect( ... ); 
my $select = "...";
my @arguments = ( ... );

my $ref = $dbh->selectall_arrayref( $select, {}, @arguments, );

更新:

使用 prepare 我会这样做:

my $sth = $dbh->prepare( $select );
$sth->execute( @arguments );
my $col_names = $sth->{NAME};
my $col_types = $sth->{TYPE};
my $ref = $sth->fetchall_arrayref;
unshift @$ref, $col_names;

Answer 1

最好的解决方案是使用 prepare获取语​​句句柄，如您在问题的第二部分中所述。如果你使用 selectall_hashref或 selectall_arrayref ，你得不到语句句柄，必须自己通过 $dbh->column_info 查询列类型信息( docs ):

my $sth = $dbh->column_info('','',$table,$column);  # or $column='' for all
my $info = $sth->fetchall_arrayref({});
use Data::Dumper; print Dumper($info);

(特别是 COLUMN_NAME 和 TYPE_NAME 属性)。

但是，如果表在两个查询之间更改架构，则会引入竞争条件。