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 :
Si vous pouviez m'aider, ce serait super sympa merci d'avance !
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; }
Partager