Perl DBIを使用してテーブルから1行1列のデータを取得する

Question

1行1列のデータを返す（Select 1 from table）のようなデータを取得しようとしています。

$sth->fetchrow_arrayメソッドを使用してデータを配列に戻したくないですか？スカラ変数direcltyにデータを収集する方法はありますか？

Answer 1

fetchrow_arrayは、それが配列—を返すことは不可能だし、あなたがそのようなmy()として何list-likeにそれを割り当てることができ、リスト—を返します。

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

それとも、単に `fetchrow_array`と` selectrow_array`ため

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

Answer 2

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

またはより良い

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