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.
Partager