Discussion :

[vbcasimir]

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

[Arioch]

où est mon erreur ??

La fonction OPEN n'existe pas en Perl, à remplacer par open



Les fonctions, mots-clés et autres sont sensibles à la casse en Perl ...

[Arioch]

c'était d'ailleurs fort bien expliqué par le compilo :

Undefined subroutine &main::OPEN

[vbcasimir]

grrrrrrrrrrrrrrrrrrr .... c'est ça lorsqu'on passe d'un langage à l'autre !!!!!

et moi qui chercher dans tous les sens ...