Holen Sie Daten mit einer Zeile und einer Spalte aus der Tabelle mit Perl DBI

Question

Ich versuche Daten wie (Select 1 from table) zu holen, die Daten mit einer Zeile und einer Spalte zurückgibt.

Ich möchte nicht $sth->fetchrow_array Methode verwenden, um die Daten in Array zu retreive. Gibt es eine Möglichkeit, die Daten in skalare Variable direkt zu sammeln?

Answer 1

fetchrow_array gibt eine Liste — es ist unmöglich, ein Array — zurückzukehren und Sie können das list-like wie ein my() zu etwas zuweisen.

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

Oder Sie könnten einfach

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

Answer 2

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

oder besser

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