Salut,

Je cherche (pour l'instant) à effectuer une requête assez simple: afficher les tables d'une bases et afficher ce résultat.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
 
# Paramètres de connexion à la base de données 
my $bd          = 'centreon'; 
my $serveur     = 'localhost';  
my $identifiant = 'user';  
my $motdepasse  = 'password';
 
# Connexion à la base de données MySQL 
my $dbh = DBI->connect( "dbi:mysql:dbname=$bd;host=$serveur;", $identifiant, $motdepasse ) 
  or die "Connexion impossible à la base de données $bd !";  
 
# Procédure pour obtenir toutes les tables - méthode fetchrow_array 
my $query = "SHOW TABLES;";
my $sth = $dbh->prepare($query) or print "erreur de preparation SQL\n";
$sth->execute or die "Could not execute SQL statement ... maybe invalid?";
print "Voici les tables : \n";
$sth->finish; 
$dbh->disconnect();
Mon problème est que je ne sais pas comment afficher le résultat, comment le mettre dans une variable...

Merci.