Compilation failed in require at (eval X) line X.

Version imprimable

Bonjour,

Je tente de me connecter avec perl à une base mysql qui tourne sur un serveur easy PHP avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 #!C:/strawberry/perl/bin/perl.exe -w use DBI; $dbh = DBI->connect("DBI:mysql:database=bdd_woshi;host=127.0.0.1;port=3306, root, root") or die "Can't connect to database: $DBI::errstr\n"; $sth = $dbh->prepare("SELECT * FROM thistable"); $sth->execute();
Quand j'execute le script, j'obtiens le message d'erreur suivant:
Code:

1 2 3 Compilation failed in require at (eval 3) line 3. at bdd2.pl line
La ligne 3 correspond à "use DBI;". Je pense pourtant bien avoir installé DBI et DBD. Quand j'essaie de les installer à nouveau avec ppm, j'obtiens ceci dans la console:
Code:

1 2 3 4 5 6 7 PPM> install DBI Version 1.604 of 'DBI' is already installed. Remove it, or use 'verify --upgrade DBI'. PPM> install DBD-mysql Version 4.005 of 'DBD-mysql' is already installed. Remove it, or use 'verify --upgrade DBD-mysql'.
Autre info, quand je fais tourner le script, j'obtiens le chiffre 5 ... Pourquoi est-ce que j'obtiens ce chiffre si le code ne compile pas ?

Quelqu'un pourrait-il m'éclairer sur le message d'erreur et sur ce chiffre 5 ?

Merci d'avance.

Moi, aussi j'utilise DBi et EasyPHP.

A ta place, j'utiliserais

Code:

#!/usr/bin/perl

et les pragmas

Code:

1
2
use strict;
use warnings;

Essaie ce code

Code:

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
#!/usr/bin/perl
 
 
use strict;
use warnings;
 
use DBI;
 
 
# connexion à MySQL
my $driver   = "mysql";
my $server   = "localhost";
my $database = "bdd_woshi";
my $url      = "DBI:$driver:$database:$server";
 
my $user = "root";
my $password = "root";
 
my $dbh = DBI->connect( $url, $user, $password) or die "Connection failure!\n";
 
 
# requête 
my $sth = $dbh->prepare("SELECT * FROM thistable") or die "Request failure\n";
$sth->execute or die "Could not execute SQL statement\n";
# ...
$sth->finish;
 
 
$dbh->disconnect();

16/04/2009, 21h02
crocodile
Bonjour Jasmine,

Merci pour ce code.
J'ai tenté, et ce coup là j'ai le même message d'erreur, mais avec le code 8 qui s'affiche ...
Code:

1 2 3 Compilation failed in require at (eval 3) line 3. at bdd3.pl line 1
bizarre bizarre ... une idée ?
Se pourrait-il que ppm ait installé DBI et DBD dans une autre distrib de perl que celle que j'utilise ?
Comment puis-je le savoir ?

merci d'avance.
17/04/2009, 09h13
Jasmine80
Donc ce simple code affiche déjà une erreur
Code:

1 2 3 4 5 6 7 #!/usr/bin/perl use strict; use warnings; use DBI;
Citation:

Se pourrait-il que ppm ait installé DBI et DBD dans une autre distrib de perl que celle que j'utilise ?

Non, je ne crois pas. Essaie peut-être une mise à jour des modules ^^ ça ne peut pas faire de tort.

Quand j'ai ce genre de problème, je fais une recherche du message d'erreur avec google.