SQLite3 de Perl: {NAME} ne fonctionne pas?

Question

Voici un extrait de code d'une application de base de données SQLite Je travaille sur:

my $query = "select * from pins"; 
my $sth = $dbh->prepare($query) or die "Couldn't prep: $DBI::errstr"; 
$sth->execute or die "Exec problem: $DBI::errstr"; 
my $result = $sth->fetchall_arrayref(); 
my $names = $sth->{NAME} or die "Name failed: $DBI::errstr"; 
foreach my $row (@$res) { 
    # ... do some row-specific things 
    foreach my $cell (@$row) { 
     # ... do some cell-specific things 
    } 
} 

La requête se déclenche de très bien, et en fait, il renvoie les résultats corrects. Cependant, pour quelque raison que ce soit, cette ligne

my $names = $sth->{NAME} or die "Name failed: $DBI::errstr"; 

Echoue. {NAME} ne retourne jamais le arrayref auquel je m'attendais. Si je supprime la clause die, elle fonctionne correctement (en lançant l'avertissement "using uncinitialized values" prévu partout où j'utilise des noms $, bien sûr).

Y a-t-il une raison évidente qui me manque pour que {NAME} ne se déclenche pas, étant donné que la requête a bien fonctionné?

Merci!

Answer 1

Une grosse erreur de ma part. Commutation de deux lignes pour que ce soit

my $names ... 
my $result ... 

Corrige le problème. Je suppose que je dois saisir {NAME} directement après execute() (ou plutôt, avant que $ sth ne change). Je ne m'attendais pas à ce que fetchall_arrayref efface {NAME}.

Fonctionne maintenant! Désolé pour le poste. Je laisserai cela à la postérité jusqu'à ce que quelqu'un décide que ça ne vaut pas la peine. :-)