Pourquoi n'ai-je pas de résultat pour cette requête DBI/MySQL ?

Question

J'ai écrit le code suivant en Perl. J'ai ActivePerl 5.14 pour Windows 7.

#!C:\perl64\bin\perl.exe -wT
use strict;
use warnings;
use DBI;
print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
my $driver     = "mysql";
my $database   = "test555";
my $tablename3 = "test77";

my $user = "root";
my $pw   = "root";

# PERL MYSQL CONNECT()
my $dbh = DBI->connect("DBI:$driver:$database", $user, $pw,);

my $sth = $dbh->prepare("
        SELECT *
          FROM t6
         WHERE paragraph='PWE1234'
    ");

$sth->execute();
#$dbh->disconnect;
#exit 0;

Lorsque le programme atteint $dbh->disconnect le système génère une erreur ; je l'ai donc commenté. Lorsque je le mets en commentaire, le système n'envoie pas d'erreur, mais je n'obtiens pas non plus de sortie.

Il y a un résultat pour cette requête, j'ai vérifié avec MySQL une fois séparément.

Answer 1

Il n'y a pas de sortie parce que vous n'avez pas de code pour créer une sortie.

Après avoir appelé execute vous devez appeler l'un des fetch des méthodes et faire quelque chose avec la structure de données que vous récupérez.