Bien le bonjour ,

tout d'abord j'utilise Perl sur WindowsXP, via ActivePerl 5.10.0 Build 1004.

J'ai installé les modules NET::MySQL et DBD::mysqlPP.

voici mon problème qui me semble vraiment louche:

Lorsque j'exécute une requête me retournant un seul résultat(une seule ligne et une seul colonne), le script se bloque(je le lance dans cmd).


voici le 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!C:\\Perl\\bin\\perl -w
 
use strict;
use warnings; 
 
# PERL MODULES WE WILL BE USING
use DBI;
use DBD::mysqlPP;
 
# CONFIG VARIABLES
my $platform = "mysqlPP";
my $database = "abcd";
my $host = "192.168.1.2";
my $port = "3306";
my $user = "abcd";
my $pw = "abcd";
 
# DATA SOURCE NAME
my $dsn = "dbi:$platform:$database:$host:$port";
 
# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $user, $pw);
 
# PREPARE THE QUERY
my $query = "SELECT MAX(`champs2`) FROM Table1 WHERE `champs1` = 'pwet'";
my $query_handle = $connect->prepare($query);
 
# EXECUTE THE QUERY
$query_handle->execute();
 
# BIND TABLE COLUMNS TO VARIABLES
$query_handle->bind_columns(\my $LBR);
 
# LOOP THROUGH RESULTS
while($query_handle->fetch()){
	print $LBR;
}
Si vous pouviez m'aider, ce serait super sympa merci d'avance !