perl - 使用 Perl DBI 从表中获取一行一列的数据

Question

我正在尝试获取像 ( Select 1 from table) 这样的数据，它返回一行一列的数据。

我不想使用$sth->fetchrow_array方法将数据检索到数组中。有什么方法可以将数据直接收集到标量变量中？

Answer 1

fetchrow_array返回一个列表——不可能返回一个数组——你可以将它分配给任何类似列表的东西，比如my().

my $sth = $dbh->prepare($stmt);
$sth->execute();
my ($var) = $sth->fetchrow_array()
   and $sth->finish();

或者你可以简单地使用

my ($var) = $dbh->selectrow_array($stmt);

Answer 2

my ($value) = @{$dbh−>selectcol_arrayref("select 1 from table")}

或更好

my ($value) = $dbh−>selectrow_array($statement);