Bonjour ,

suite à la creation d'un fichier XML contenant des données provenant d'une base

de données MySQL, j'aimerais pouvoir afficher ces infos dans le navigateur WEB.


Pour cela j'ai utilisé le module XML::XSLT mais il me retourne l'erreur suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Error while parsing:
syntax error at line 1, column 0, byte 0 at C:/Program Files/Perl/lib/XML/Parser
.pm line 187
 
fz.xsl at C:/Program Files/Perl/site/lib/XML/XSLT.pm line 1507.

PS voici le bout de code perl concerné :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
use DBI;
use XML::XSLT;
use DBIx::XML_RDB;
 
 
...\...
 
 
	#Ouverture et creation du fichier XML
	my $Chemin_XML_Complet = $Tableau_Chemin_XML[1] . $Tableau_Nom_XML[1];
	my $Ouverture5_Fichier = open(FILE5,'+>',$Chemin_XML_Complet);
 
 
	#Verification de la bonne ouverture et creation du fichier XML
		if ($Ouverture5_Fichier) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Creation du fichier XML : OK\n");
		}
 
		if (!$Ouverture5_Fichier) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Creation du fichier XML : Echec\n$!\n");
		}
 
	#Connexion a la base de donnees MySQL
	my $XML_MySQL = DBIx::XML_RDB->new("dbi:database=$Tableau_Database[1];hostname=$Tableau_Hote[1];port=$Tableau_Port[1]","mysql","$Tableau_Login[1]","$Tableau_Mdp[1]");
 
 
	#Verification de la bonne conectivité avec la BDD MySQL
		if ($XML_MySQL) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Connexion a la base de donnees MySQL : OK\n");
		}
 
		if (!$XML_MySQL) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Connexion a la base de donnees MySQL : Echec\n$!\n");
		}
 
 
	#Creation et execution de la requete MySQL
	$XML_MySQL->DoSql("SELECT Heure_Debut,Heure_Fin,Nom_Patient,Prenom_Patient,Description_Rendezvous FROM rendezvous, medecin, patient WHERE rendezvous.Numero_Medecin = medecin.ID_Medecin AND rendezvous.Numero_Patient = Patient.ID_Patient AND Date_Rendezvous = now() AND Nom_Medecin = '" . $Nom_Medecin . "' AND Prenom_Medecin = '" . $Prenom_Medecin . "' ORDER BY 'Heure_Debut' ASC");
 
 
	#Enregistrement des données de la requete MySQL dans le fichier XML
	print (FILE5 $XML_MySQL->GetData);
 
 
	#Ouverture et creation du fichier XSL
	my $Chemin_XSL_Complet = $Tableau_Chemin_XSL[1] . $Tableau_Nom_XSL[1];
	my $Ouverture6_Fichier = open(FILE6,'+>',$Chemin_XSL_Complet);
 
 
	#Enregistrement du fichier XSL
	my $Parser = XML::XSLT->new(Source => $Chemin_XSL_Complet);
 
 
	#Verification de la bonne ouverture et creation du fichier XSL
		if ($Ouverture6_Fichier) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Creation du fichier XSL : OK\n");
		}
 
		if (!$Ouverture6_Fichier) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Creation du fichier XSL : Echec\n$!\n");
		}
 
 
	$Parser->transform ($Chemin_XML_Complet);
	print (FILE6 $Parser->toString);
 
 
...\...

PS : j'ai mis un bout de mon programme ce qui permettrait à quelqu'un de pouvoir m'aider.