Recupera i dati con una riga e una colonna dalla tabella utilizzando Perl DBI

Question

Sto tentando di recuperare dati come (Select 1 from table) che restituiscono dati con una riga e una colonna.

Non voglio usare il metodo $sth->fetchrow_array per recuperare i dati in array. C'è un modo per raccogliere i dati in direclty variabile scalare?

Answer 1

fetchrow_array restituisce una lista — è impossibile restituire un array — e è possibile assegnare a qualsiasi cosa che list-like come ad esempio un my().

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

Oppure si potrebbe usare semplicemente

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

Answer 2

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

o meglio

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