Bonjour ,

Je souhaite intégrer les données dans un fichier texte en utilisant la methode dump_results fournit par mysql

mon script est le suivant :

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
 
 
#!/usr/bin/perl -w
 
use strict;
use CGI qw(:standard);
use DBI ;
 
 
my ($dbh , $sth );
$dbh=DBI->connect("dbi:mysql:database=Ema_base;host=u","x","");
$sth = $dbh->prepare("select * from ma_table");
$sth->execute();
 
OPEN (FICHIER , ">resultat.txt") or die "impossible d'ouvrir le fichier";
 
my $lignes = $sth->dump_results(35 , '\n' , ';' , \*FICHIER );
 
#j'ai verifié que j'arrive à afficher le résultat ce qui fonctionne 
#my $lignes = $sth->dump_results(35 , '\n' , ';' , \*STDOUT );
#print $lignes;
 
close (FICHIER);
 
$sth->finish();
$dbh->disconnect();
lorsque je consulte le message d'erreur j'ai les lignes suivantes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
 
Undefined subroutine &main::OPEN ca
lled at /chemin/monfichier.pl line 15., referer: http://site/chemin/fichier.pl
 Bareword "FICHIER" not allowed while "strict subs" in use at /chemin/monfichier.pl line 15., referer: http://site/chemin/fichier.pl
où est mon erreur ??

Merci