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

我正在尝试获取类似（

select1fromtable

）的数据，它返回一行一列的数据

---

我不想使用

$sth->fetchrow\u array

方法将数据检索到数组中。有没有办法将数据收集到标量变量direclty中？

fetchrow\u array

返回一个列表-不可能返回数组-您可以将其分配给任何对象，例如

my（）

或者你可以简单地使用

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

或者更好

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

---

fetchrow\u array

和

selectrow\u array

的文档表明，当在标量上下文中调用时，它们将返回第一列或最后一列，因此，尽管

my（$var）=……

中的参数通常是重要的，但在这里应该可以省略它们。

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

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