Perl et attribut xml : Twig ?

Version imprimable

Bonjour à tous,

j'ai suivi l'excellent tutoriel Perl de Djibril, en pensant que le xml::twig pouvait m'aider...
http://djibril.developpez.com/tutoriels/perl/perl-xml/
mais je n'arrive pas à l'adapter.

Mon problème est simple, mon xml contient mes informations uniquement à l'intérieur des balises

NOTA : la partie xml avant ce code ne comporte rien de particulier.

Moi en gros j'aimerais récupérer les valeurs de n, nc, km etc... pour chaque <pt>
Après, je pense savoir adapter le code de Djibril, c'est juste que pour le moment je ne sais pas quel syntaxe adopter pour avoir accès...

Mes excuses, je débute... d'avance merci :P
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="coureur.xsl.php"?> <pts> <pt idpt="0" n="Orsieres" nc="Depart" km="0" d="0" a="911" x="50" y="154" lon="7.1463" lat="46.0304" meet="1" /> <pt idpt="20" n="Champex-Lac" nc="Champex" km="7.61" d="604" a="1482" x="165" y="105" lon="7.12048" lat="46.0277" meet="1" /> <pt idpt="21" n="La Giete" nc="Giete" km="18.74" d="1469" a="1883" x="334" y="71" lon="7.03381" lat="46.0559" /> <pt idpt="23" n="Trient" nc="Trient" km="23.52" d="1527" a="1303" x="406" y="120" lon="6.99552" lat="46.056" meet="1" /> <pt idpt="24" n="Catogne" nc="Catogne" km="28.9" d="2326" a="2005" x="488" y="61" lon="6.96913" lat="46.0398" /> <pt idpt="25" n="Vallorcine" nc="Vallo" km="33.97" d="2353" a="1263" x="565" y="124" lon="6.93234" lat="46.0321" meet="1" /> <pt idpt="91" n="La Flegere" nc="Flegere" km="44.89" d="3283" a="1871" x="730" y="72" lon="6.88715" lat="45.9601" /> <pt idpt="94" n="Chamonix" nc="Arrivee" km="52.12" d="3374" a="1036" x="840" y="143" lon="6.86897" lat="45.9236" meet="1" />[/INDENT] </pts>

Bonjour,

pour un problème aussi simple tu peux t'en sortir avec des expressions régulières (\042 est le caractère ", on aurait pu utiliser " directement mais cette forme facilite la vie aux coloriseurs syntaxiques):
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 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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 Taisha:~/perl/forum $ perl -MData::Dump -0ne 'dd map { my %h = m/(\S+?)=\042([^\042]*)\042/g; \%h } m{<pt (.*?)/>}g' xml.dat ( { a => 911, d => 0, idpt => 0, km => 0, lat => 46.0304, lon => 7.1463, meet => 1, n => "Orsieres", nc => "Depart", x => 50, y => 154, }, { a => 1482, d => 604, idpt => 20, km => 7.61, lat => 46.0277, lon => 7.12048, meet => 1, n => "Champex-Lac", nc => "Champex", x => 165, y => 105, }, { a => 1883, d => 1469, idpt => 21, km => 18.74, lat => 46.0559, lon => 7.03381, n => "La Giete", nc => "Giete", x => 334, y => 71, }, { a => 1303, d => 1527, idpt => 23, km => 23.52, lat => 46.056, lon => 6.99552, meet => 1, n => "Trient", nc => "Trient", x => 406, y => 120, }, { a => 2005, d => 2326, idpt => 24, km => 28.9, lat => 46.0398, lon => 6.96913, n => "Catogne", nc => "Catogne", x => 488, y => 61, }, { a => 1263, d => 2353, idpt => 25, km => 33.97, lat => 46.0321, lon => 6.93234, meet => 1, n => "Vallorcine", nc => "Vallo", x => 565, y => 124, }, { a => 1871, d => 3283, idpt => 91, km => 44.89, lat => 45.9601, lon => 6.88715, n => "La Flegere", nc => "Flegere", x => 730, y => 72, }, { a => 1036, d => 3374, idpt => 94, km => 52.12, lat => 45.9236, lon => 6.86897, meet => 1, n => "Chamonix", nc => "Arrivee", x => 840, y => 143, }, ) Taisha:~/perl/forum $
Comme tu débutes, quelques explications :

perl -0ne '...' xml.dat va lire l'ensemble du ou des fichier(s) passé(s) en paramètre dans $_. Ici il n'y en a qu'un, c'est xml.dat. La documentation de ces paramètres (-0, -n, etc...) est ici.

Dans les deux utilisations de l'opérateur de matching m/.../, on utilise le modifier g (m/.../g) qui indique d'effectuer un matching global. En contexte de liste, ceci produit la liste de tous les groupes capturants dans l'expression régulière utilisée. Documentation ici.

Pour m{<pt (.*?)/>}g, le contexte de liste est fourni par le map qui précède, il n'y a qu'un groupe capturant et l'opérateur produit une liste de chaînes de caractères, à raison d'une pour chaque <pt ... \>, contenant les définitions d'attributs. On peut le vérifier par exemple avec le code ci-dessous (les arguments d'un appel de fonction, ici dd, sont également évalués en contexte de liste) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Taisha:~/perl/forum $ perl -MData::Dump -0ne 'dd m{<pt (.*?)/>}g' xml.dat ( "idpt=\"0\" n=\"Orsieres\" nc=\"Depart\" km=\"0\" d=\"0\" a=\"911\" x=\"50\" y=\"154\" lon=\"7.1463\" lat=\"46.0304\" meet=\"1\" ", "idpt=\"20\" n=\"Champex-Lac\" nc=\"Champex\" km=\"7.61\" d=\"604\" a=\"1482\" x=\"165\" y=\"105\" lon=\"7.12048\" lat=\"46.0277\" meet=\"1\" ", "idpt=\"21\" n=\"La Giete\" nc=\"Giete\" km=\"18.74\" d=\"1469\" a=\"1883\" x=\"334\" y=\"71\" lon=\"7.03381\" lat=\"46.0559\" ", "idpt=\"23\" n=\"Trient\" nc=\"Trient\" km=\"23.52\" d=\"1527\" a=\"1303\" x=\"406\" y=\"120\" lon=\"6.99552\" lat=\"46.056\" meet=\"1\" ", "idpt=\"24\" n=\"Catogne\" nc=\"Catogne\" km=\"28.9\" d=\"2326\" a=\"2005\" x=\"488\" y=\"61\" lon=\"6.96913\" lat=\"46.0398\" ", "idpt=\"25\" n=\"Vallorcine\" nc=\"Vallo\" km=\"33.97\" d=\"2353\" a=\"1263\" x=\"565\" y=\"124\" lon=\"6.93234\" lat=\"46.0321\" meet=\"1\" ", "idpt=\"91\" n=\"La Flegere\" nc=\"Flegere\" km=\"44.89\" d=\"3283\" a=\"1871\" x=\"730\" y=\"72\" lon=\"6.88715\" lat=\"45.9601\" ", "idpt=\"94\" n=\"Chamonix\" nc=\"Arrivee\" km=\"52.12\" d=\"3374\" a=\"1036\" x=\"840\" y=\"143\" lon=\"6.86897\" lat=\"45.9236\" meet=\"1\" ", ) Taisha:~/perl/forum $
Le bloc { my %h = m/(\S+?)=\042([^\042]*)\042/g; \%h } du map, qui va être évalué pour chacune des chaînes ci-dessus, extrait les paires attributs="valeur" de la chaîne et s'en sert pour construire un hash, qui est retourné (via une référence) comme résultat. Ici c'est l'affectation à %h qui fournit le contexte de liste à l'évaluation de m/.../g. Cela fonctionne car chaque match produit une liste de deux élements (attribut, valeur), et c'est la liste résultante de tous les matches qui est affectée à %h, les éléments d'indice pair (démarrant à 0) étant utilisés comme clé, et les éléments d'indice impair comme valeur.

L'appel à dd (fourni par Data::Dump) imprime la liste des hashes ainsi produits.

Bonsoir à toi et merci de ton retour.
Pour être honnête, je n'ai pas tout compris... mais j'ai un peu travaillé en parrallèle avec les exemples de Djibril.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
# Création du fichier résultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
  or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
 
 
my $t = XML::Twig->new( 
  twig_handlers => { 
    'identite' => \&personne, 
  } 
);
$t->parsefile('live.xml');
 
my $t0 = XML::Twig->new( 
  twig_handlers => { 
    'pt' => \&Suivi, 
  } 
);
$t0->parsefile('live.xml');
 
#----------------------------
# Function
 
sub personne {
print "\n\n";
	print {$FhResultat} "", "=" x 40, "\n";
    my ($twig, $twig_element) = @_;
    my $prenom = $twig_element->att('prenom');
	my $nom = $twig_element->att('nom');
	my $sx=$twig_element->att('sx');
    print {$FhResultat} "Suivi de $prenom $nom de sexe $sx\n";
	print {$FhResultat} "", "=" x 40, "\n";
	print {$FhResultat} "\n\n";
}
 
 
sub Suivi {
    my ($twig, $twig_element) = @_;
    my $km = $twig_element->att('km');
	my $point = $twig_element->att('n');
	my $d=$twig_element->att('d');
    print {$FhResultat} "Passage a $point\n";
	print {$FhResultat} "kilometre $km - D+=$d m\n";
	print {$FhResultat} "", "-" x 40, "\n";
 
}

Ce code fait exactement ce que je veux, au défaut près qu'il utilise handlers et que donc il ne me récupère les infos que partiellement. Je ne peux pas utiliser d'attributs "identités" dans la fonction "suivi". C'est assez gênant, en particuler car les heures de passages sont dans les données <e> alors que les kilomètres et les noms des points de passage sont dans <pt>...

Le must, j'aimerais justement faire une sortie "$nom est passé à $point à $heure", sachant que $nom est plutôt dans <identite>, $point dans <pt> et $heure sera dans <e>.

Je pense du coup qu'il ne faut PAS utiliser handlers pour faire des fonctions qui ont accès à toutes les infos...

J'ai bien essayé mais entre les children et grand children je m'y perds complétement. J'ai pourtant l'impression de plus être bien loin!

je met le xml complet également :

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
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
69
70
71
<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="coureur.xsl.php"?><d rech="thevenard"><courses><c id="utmb" n="UTMB®" nc="UTMB®" /><c id="ccc" n="CCC®" nc="CCC®" /><c id="tds" n="TDS®" nc="TDS®" /><c id="occ" n="OCC" nc="OCC" /><c id="ptl" n="PTL®" nc="PTL®" /><c id="ycc" n="#YCC" nc="#YCC" /></courses>		  <fiche doss="8" c="utmb"  >
			<dotvision>http://live2.dotvision.com/live/mobile?guid=1be6c89d-4351-4df2-a809-e6a7e88bbf12&amp;favoris=9794&amp;intro=false</dotvision>			<identite nom="THEVENARD"
			  prenom="Xavier"			  cat="SE H"
			  sx="H"
			  descat="23-39"
			  club="/"			  			  
			  				  nat="France"
				  cio="FRA"			  			  				  				  ville="JOUGNE" pays="FR"
			  			/>
																					<state code="f" clt="1" cltcat="1" />			<prev >
			  			</prev>
						<pass>
			<e idpt="0" hd="18:00:11" jd="5" tps="00:00:00" clt="-" tn="0" ></e>
<e idpt="1" ha="19:14:57" ja="5" tps="01:14:46" tn="1.2461111111111" tnp="1.2461111111111" clt="6" ></e>
<e idpt="2" ha="19:49:19" ja="5" tps="01:49:08" tn="1.8188888888889" tnp="0.57277777777778" clt="8" ></e>
<e idpt="3" ha="20:47:46" ja="5" tps="02:47:35" tn="2.7930555555556" tnp="0.97416666666667" clt="4" ></e>
<e idpt="4" ha="21:44:50" ja="5" tps="03:44:39" tn="3.7441666666667" tnp="0.95111111111111" clt="2" ></e>
<e idpt="5" ha="22:44:19" ja="5" tps="04:44:08" tn="4.7355555555556" tnp="0.99138888888889" clt="3" ></e>
<e idpt="6" ha="23:13:08" ja="5" hd="23:15:05" jd="5" tps="05:12:57" tn="5.2158333333333" tnp="0.48027777777778" clt="4" ></e>
<e idpt="7" ha="00:37:37" ja="6" tps="06:37:26" tn="6.6238888888889" tnp="1.3755555555556" clt="1" ></e>
<e idpt="8" ha="01:30:04" ja="6" tps="07:29:53" tn="7.4980555555556" tnp="0.87416666666667" clt="1" ></e>
<e idpt="9" ha="02:10:10" ja="6" tps="08:09:59" tn="8.1663888888889" tnp="0.66833333333333" clt="1" ></e>
<e idpt="10" ha="02:35:11" ja="6" tps="08:35:00" tn="8.5833333333333" tnp="0.41694444444444" clt="1" ></e>
<e idpt="11" ha="03:00:37" ja="6" tps="09:00:26" tn="9.0072222222222" tnp="0.42388888888889" clt="1" ></e>
<e idpt="12" ha="03:03:59" ja="6" tps="09:03:48" tn="9.0633333333333" tnp="0.056111111111111" clt="1" ></e>
<e idpt="14" ha="03:58:55" ja="6" tps="09:58:44" tn="9.9788888888889" tnp="0.91555555555556" clt="1" ></e>
<e idpt="15" ha="04:48:25" ja="6" tps="10:48:14" tn="10.803888888889" tnp="0.825" clt="1" ></e>
<e idpt="16" ha="05:24:08" ja="6" tps="11:23:57" tn="11.399166666667" tnp="0.59527777777778" clt="1" ></e>
<e idpt="17" ha="06:18:23" ja="6" tps="12:18:12" tn="12.303333333333" tnp="0.90416666666667" clt="2" ></e>
<e idpt="18" ha="07:10:03" ja="6" hd="07:11:15" jd="6" tps="13:09:52" tn="13.164444444444" tnp="0.86111111111111" clt="1" ></e>
<e idpt="20" ha="08:36:24" ja="6" hd="08:39:24" jd="6" tps="14:36:13" tn="14.603611111111" tnp="1.4191666666667" clt="1" ></e>
<e idpt="21" ha="10:11:35" ja="6" tps="16:11:24" tn="16.19" tnp="1.5363888888889" clt="1" ></e>
<e idpt="23" ha="10:38:27" ja="6" hd="10:42:26" jd="6" tps="16:38:16" tn="16.637777777778" tnp="0.44777777777778" clt="1" ></e>
<e idpt="24" ha="11:43:42" ja="6" tps="17:43:31" tn="17.725277777778" tnp="1.0211111111111" clt="1" ></e>
<e idpt="25" ha="12:17:13" ja="6" hd="12:21:24" jd="6" tps="18:17:02" tn="18.283888888889" tnp="0.55861111111111" clt="1" ></e>
<e idpt="28" ha="13:56:10" ja="6" tps="19:55:59" tn="19.933055555556" tnp="1.5794444444444" clt="1" ></e>
<e idpt="91" ha="14:26:54" ja="6" tps="20:26:43" tn="20.445277777778" tnp="0.51222222222222" clt="1" ></e>
<e idpt="94" ha="15:09:26" ja="6" hd="17:48:10" jd="6" tps="21:09:15" tn="21.154166666667" tnp="0.70888888888889" clt="1" ></e>		  </pass>
 
 
 
 
		  <pts>
<pt idpt="0" n="Chamonix" nc="Depart" km="0" d="0" a="1036" x="50" y="144" lon="6.86876" lat="45.9237" meet="1" />
<pt idpt="1" n="Le Delevret" nc="Delev" km="13.56" d="870" a="1739" x="113" y="96" lon="6.75676" lat="45.8792" />
<pt idpt="2" n="Saint Gervais" nc="StGer" km="20.83" d="959" a="815" x="147" y="159" lon="6.71168" lat="45.8934" meet="1" />
<pt idpt="3" n="Les Contamines" nc="Conta" km="31.11" d="1536" a="1160" x="195" y="135" lon="6.72671" lat="45.8227" meet="1" />
<pt idpt="4" n="La Balme" nc="Balme" km="39.24" d="2076" a="1699" x="232" y="98" lon="6.7111" lat="45.7579" />
<pt idpt="5" n="Ref. Croix Bonhomme" nc="Bonhom" km="44.78" d="2876" a="2441" x="258" y="48" lon="6.71771" lat="45.7221" />
<pt idpt="6" n="Les Chapieux" nc="Chapieu" km="50.06" d="2876" a="1553" x="283" y="108" lon="6.73389" lat="45.6965" t="D" meet="1" />
<pt idpt="7" n="Col de la Seigne" nc="Seigne" km="60.2" d="3849" a="2507" x="330" y="44" lon="6.80714" lat="45.7514" />
<pt idpt="8" n="Lac Combal" nc="Combal" km="66.72" d="4107" a="1964" x="360" y="80" lon="6.85594" lat="45.7705" />
<pt idpt="9" n="Arrete du Mont-Favre" nc="MtFavre" km="70.57" d="4570" a="2409" x="378" y="50" lon="6.89016" lat="45.7723" />
<pt idpt="10" n="Col Chécrouit" nc="Checrou" km="75.05" d="4580" a="1958" x="399" y="81" lon="6.93111" lat="45.7906" />
<pt idpt="11" n="Courmayeur - Dolonne Entrée" nc="Courm1" km="79.35" d="4586" a="1191" x="419" y="133" lon="6.96495" lat="45.7941" meet="1" />
<pt idpt="12" n="Courmayeur - Dolonne Sortie" nc="Courm2" km="79.35" d="4586" a="1191" x="419" y="133" lon="6.96495" lat="45.7941" meet="1" />
<pt idpt="14" n="Refuge Bertone" nc="Bertone" km="84.07" d="5391" a="1977" x="441" y="80" lon="6.97842" lat="45.8091" />
<pt idpt="15" n="Refuge Bonatti" nc="Bonatti" km="91.43" d="5680" a="2015" x="475" y="77" lon="7.0329" lat="45.8469" />
<pt idpt="16" n="Arnuva" nc="Arnuva" km="96.62" d="5808" a="1772" x="499" y="94" lon="7.05272" lat="45.8713" meet="1" />
<pt idpt="17" n="Grand Col Ferret" nc="GdColF" km="101.05" d="6569" a="2527" x="520" y="42" lon="7.07781" lat="45.8887" />
<pt idpt="18" n="La Fouly" nc="Fouly" km="111.04" d="6704" a="1603" x="566" y="105" lon="7.0984" lat="45.9357" t="D" meet="1" />
<pt idpt="20" n="Champex-Lac" nc="Champex" km="125.04" d="7308" a="1482" x="632" y="113" lon="7.12048" lat="46.0277" t="D" meet="1" />
<pt idpt="21" n="La Giete" nc="Giete" km="136.17" d="8173" a="1883" x="683" y="86" lon="7.03381" lat="46.0559" />
<pt idpt="23" n="Trient" nc="Trient" km="140.95" d="8231" a="1303" x="706" y="125" lon="6.99552" lat="46.056" t="D" meet="1" />
<pt idpt="24" n="Catogne" nc="Catogne" km="146.33" d="9030" a="2005" x="731" y="78" lon="6.96913" lat="46.0398" />
<pt idpt="25" n="Vallorcine" nc="Vallo" km="151.41" d="9057" a="1263" x="754" y="128" lon="6.93234" lat="46.0321" t="D" meet="1" />
<pt idpt="28" n="La Tete aux vents" nc="TaVents" km="159.08" d="9930" a="2116" x="790" y="70" lon="6.90657" lat="45.9824" />
<pt idpt="91" n="La Flegere" nc="Flegere" km="162.62" d="9992" a="1871" x="806" y="87" lon="6.88715" lat="45.9601" />
<pt idpt="94" n="Chamonix" nc="Arrivee" km="169.86" d="10083" a="1036" x="840" y="144" lon="6.86897" lat="45.9236" meet="1" /></pts>		  			</fiche>
</d>

Pour info enfin, ceci est la première étape. Enfait ce fichier xml vient d'une page web, et dans la suite de mon développement il faudra que j'aille chercher directement sur le web le fichier xml.

Encore merci à vous

23/11/2015, 09h25
Lolo78

Citation:

Envoyé par kenobiwan88

Pour info enfin, ceci est la première étape. Enfait ce fichier xml vient d'une page web, et dans la suite de mon développement il faudra que j'aille chercher directement sur le web le fichier xml.

Dans ce cas, il vaut peut-être mieux décoder directement le HTML plutôt que passer par un intermédiaire XML, non?

Sinon, utilise un module comme Data:: Dumper pour afficher la structure que te renvoie XML::Twig, ça devrait t'aider à savoir où et comment récupérer les données que tu recherches.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{
  my ($prenom, $nom, $sx);
 
  sub personne {
     ...
     $prenom = $twig_element->att('prenom');
     ...
  }
 
  sub Suivi {
    ...
    # tu peux utiliser $prenom ici
    ...
  }
}

23/11/2015, 10h18
kenobiwan88

Citation:

Envoyé par Lolo78

Dans ce cas, il vaut peut-être mieux décoder directement le HTML plutôt que passer par un intermédiaire XML, non?

Sinon, utilise un module comme Data:: Dumper pour afficher la structure que te renvoie XML::Twig, ça devrait t'aider à savoir où et comment récupérer les données que tu recherches.

Salut,

merci de ton retour.

Enfait la page de base est déja en xml.

Je donne le détail : Mon outil se veut être pour faire du suivi des épreuves de course à pied. L'adresse première est la suivante : http://utmb.livetrail.net/coureur.php, puis il faut rentrer un nom ou numéro "8" par exemple, qui donne accès au .xml que j'ai copié précédemment.

J'ai soumis mes questions relatives à la deuxième partie, ou je travaillais en local sur le xml que j'ai copié / collé.

Mais dans un futur (très) proche, j'aimerai que le script :
- se connecte sur http://utmb.livetrail.net/coureur.php
- rentrer le numéro de dossard que j'aurais défini dans le script
- valide
- traite la page xml détaillée (script déja posté avant, à voir si on peut la traiter "en ligne" ou si je dois enregistrer le xml pour le traiter en local)

Débutant, je cherche actuellement en parallèle la méthode pour entrer le numéro de dossard et valider, ça doit pas être compliqué mais quand on commence...

En résumé, pour moi tout est en xml quand je fais "afficher le code source de la page"

NOTA : merci cmcmc, cela semble pas mal du tout, je te tiens au courant !!

Merci bien !

Encore moi messieurs, ça avance !

Je pense qu'avant de m'attaquer à la partie "online", il me reste un petit soucis à résoudre.

Les informations relatives à l'heure sont dans la balise <pass> puis <e>.
Je crée donc un sub qui remplit un tableau @horaire en fonction de la valeur de idpt, qui ont la bonne idée d'être les mêmes que dans <pt>.

Ca ca marche bien, @horaire se remplit parfaitement.
Par contre dans le sub "suivi", quand je fais appel à @horaire avec le pointeur $ident2 qui correspondant aussi à la valeur de idpt mais dans <pt> cette fois ca plante...

Pourtant j'ai bien fait attention de définir @horaire en dehors de toute fonction.

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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
# Création du fichier résultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
  or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
 
 # récupération des infos relatives au nom de la course
my $t1 = XML::Twig->new( 
  twig_handlers => { 
    'fiche' => \&course, 
  } 
);
$t1->parsefile('live.xml'); 
 
# récupération des infos relatives au coureur
my $t = XML::Twig->new( 
  twig_handlers => { 
    'identite' => \&personne, 
  } 
);
$t->parsefile('live.xml');
 
#---------------------------------------------
# récupération des infos relatives au points de passage
my $t0 = XML::Twig->new( 
  twig_handlers => { 
    'pt' => \&Suivi, 
  } 
);
$t0->parsefile('live.xml');
 
#----------------------------
 
 
# récupération des infos relatives aux heures
my $t2 = XML::Twig->new( 
  twig_handlers => { 
    'pass/e' => \&heure, 
  } 
);
$t2->parsefile('live.xml');
 
#----------------------------
 
# Function
 
 my ($prenom, $nom, $sx, $heure, $altitude, $d, $km, $point, $nc, $nomcourse,$ident, $ident2, $temps, @horaire, @temps);
 
 for (my $i = 0; $i <= 1000; $i++) {
   $horaire[$i]=0;#Création du tableau qui va contenir toutes les heures en fonction de la valeur idpt
}
 
 
 {
 
 # Récupération des informations courses
  sub course {
    my ($twig, $twig_element) = @_;
     $nomcourse = $twig_element->att('c');
}
 
# Récupération des informations heures
sub heure {
    my ($twig, $twig_element) = @_;
 
	$ident = int($twig_element->att('idpt')); #on récupère le idpt qu'on retrouvera dans <pt>
	$heure = $twig_element->att('tps');
	$horaire[$ident]=$heure; #on remplit le tableau d'horaire avec les différentes heures, le reste reste à 0.
print "$horaire[$ident]\n"; # ça ca fonctionne, le tableau se remplit bien
 
}
 
 
 #récupération des infos du coureur
sub personne {
print "\n\n";
	print {$FhResultat} "", "=" x 40, "\n";
    my ($twig, $twig_element) = @_;
     $prenom = $twig_element->att('prenom');
	 $nom = $twig_element->att('nom');
	 $sx=$twig_element->att('sx');
    print {$FhResultat} "Suivi de $prenom $nom, qui participe à l'epreuve $nomcourse\n";
	print {$FhResultat} "", "=" x 40, "\n";
	print {$FhResultat} "\n\n";
}
 
 #Suivi et affichage
sub Suivi {
    my ($twig, $twig_element) = @_;
    $km = $twig_element->att('km');
	 $point = $twig_element->att('n');
	  $d=$twig_element->att('d');
	  $nc=$twig_element->att('nc');
	  $ident2=int($twig_element->att('idpt')); #on récupérer l'idpt du <p> pour aller rechercher le bon temps dans le tableau @horaire
 
    print {$FhResultat} "$prenom $nom est passe a $point\n";
	print {$FhResultat} "kilometre $km - D+=$d m\n";
	#print "$horaire[0]\n";
	#print {$FhResultat} "Temps de course :  $horaire[$ident2]\n";
	print {$FhResultat} "", "-" x 40, "\n";
 
	}
 
}

Encore merci de votre mobilisation !

[edit : apparemment, les tableaux ne se comportent pas comme les variables standard, une fois sortie de la routine sub heure, le tableau @horaire ne contient que des zéros...]

tu peux capturer toutes les infos dint tu as besoin, et une fois que c'est fait, produire ton résultat :

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
Taisha:~/perl/forum $ cat ok88.pl
use strict;
use warnings;
use XML::Twig;
 
my ($filename) = @ARGV;
 
{
    my $c;
 
    XML::Twig->new(
	twig_handlers => {
	    map { my ($name, $id, $wanted_atts) = @$_; 
		  $name => sub { my ($t, $e) = @_;
				 my %h = map { $_ => $e->att($_)} @$wanted_atts;
				 if ($id) {
				     $c->{$name}{$h{$id}} = \%h;
				 } else {
				     push @{$c->{$name}}, \%h;
				 }
		  } }
	    ['identite', undef, [qw(nom prenom sx)]],
	    ['e', 'idpt', [qw(idpt ha ja tps tn tnp clt)]],
	    ['pt', 'idpt', [qw(idpt n nc km d a x ylon lat meet)]]
	}) ->parsefile($filename);
 
    use Data::Dump; dd $c;
}
Taisha:~/perl/forum $

qui donne chez moi

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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
Taisha:~/perl/forum $ perl ok88.pl live.xml
{
  e => {
    "0"  => {
              clt  => "-",
              ha   => undef,
              idpt => 0,
              ja   => undef,
              tn   => 0,
              tnp  => undef,
              tps  => "00:00:00",
            },
    "1"  => {
              clt  => 6,
              ha   => "19:14:57",
              idpt => 1,
              ja   => 5,
              tn   => 1.2461111111111,
              tnp  => 1.2461111111111,
              tps  => "01:14:46",
            },
    "2"  => {
              clt  => 8,
              ha   => "19:49:19",
              idpt => 2,
              ja   => 5,
              tn   => 1.8188888888889,
              tnp  => 0.57277777777778,
              tps  => "01:49:08",
            },
    "3"  => {
              clt  => 4,
              ha   => "20:47:46",
              idpt => 3,
              ja   => 5,
              tn   => 2.7930555555556,
              tnp  => 0.97416666666667,
              tps  => "02:47:35",
            },
    "4"  => {
              clt  => 2,
              ha   => "21:44:50",
              idpt => 4,
              ja   => 5,
              tn   => 3.7441666666667,
              tnp  => 0.95111111111111,
              tps  => "03:44:39",
            },
    "5"  => {
              clt  => 3,
              ha   => "22:44:19",
              idpt => 5,
              ja   => 5,
              tn   => 4.7355555555556,
              tnp  => 0.99138888888889,
              tps  => "04:44:08",
            },
    "6"  => {
              clt  => 4,
              ha   => "23:13:08",
              idpt => 6,
              ja   => 5,
              tn   => 5.2158333333333,
              tnp  => 0.48027777777778,
              tps  => "05:12:57",
            },
    "7"  => {
              clt  => 1,
              ha   => "00:37:37",
              idpt => 7,
              ja   => 6,
              tn   => 6.6238888888889,
              tnp  => 1.3755555555556,
              tps  => "06:37:26",
            },
    "8"  => {
              clt  => 1,
              ha   => "01:30:04",
              idpt => 8,
              ja   => 6,
              tn   => 7.4980555555556,
              tnp  => 0.87416666666667,
              tps  => "07:29:53",
            },
    "9"  => {
              clt  => 1,
              ha   => "02:10:10",
              idpt => 9,
              ja   => 6,
              tn   => 8.1663888888889,
              tnp  => 0.66833333333333,
              tps  => "08:09:59",
            },
    "10" => {
              clt  => 1,
              ha   => "02:35:11",
              idpt => 10,
              ja   => 6,
              tn   => 8.5833333333333,
              tnp  => 0.41694444444444,
              tps  => "08:35:00",
            },
    "11" => {
              clt  => 1,
              ha   => "03:00:37",
              idpt => 11,
              ja   => 6,
              tn   => 9.0072222222222,
              tnp  => 0.42388888888889,
              tps  => "09:00:26",
            },
    "12" => {
              clt  => 1,
              ha   => "03:03:59",
              idpt => 12,
              ja   => 6,
              tn   => 9.0633333333333,
              tnp  => 0.056111111111111,
              tps  => "09:03:48",
            },
    "14" => {
              clt  => 1,
              ha   => "03:58:55",
              idpt => 14,
              ja   => 6,
              tn   => 9.9788888888889,
              tnp  => 0.91555555555556,
              tps  => "09:58:44",
            },
    "15" => {
              clt  => 1,
              ha   => "04:48:25",
              idpt => 15,
              ja   => 6,
              tn   => 10.803888888889,
              tnp  => 0.825,
              tps  => "10:48:14",
            },
    "16" => {
              clt  => 1,
              ha   => "05:24:08",
              idpt => 16,
              ja   => 6,
              tn   => 11.399166666667,
              tnp  => 0.59527777777778,
              tps  => "11:23:57",
            },
    "17" => {
              clt  => 2,
              ha   => "06:18:23",
              idpt => 17,
              ja   => 6,
              tn   => 12.303333333333,
              tnp  => 0.90416666666667,
              tps  => "12:18:12",
            },
    "18" => {
              clt  => 1,
              ha   => "07:10:03",
              idpt => 18,
              ja   => 6,
              tn   => 13.164444444444,
              tnp  => 0.86111111111111,
              tps  => "13:09:52",
            },
    "20" => {
              clt  => 1,
              ha   => "08:36:24",
              idpt => 20,
              ja   => 6,
              tn   => 14.603611111111,
              tnp  => 1.4191666666667,
              tps  => "14:36:13",
            },
    "21" => {
              clt  => 1,
              ha   => "10:11:35",
              idpt => 21,
              ja   => 6,
              tn   => 16.19,
              tnp  => 1.5363888888889,
              tps  => "16:11:24",
            },
    "23" => {
              clt  => 1,
              ha   => "10:38:27",
              idpt => 23,
              ja   => 6,
              tn   => 16.637777777778,
              tnp  => 0.44777777777778,
              tps  => "16:38:16",
            },
    "24" => {
              clt  => 1,
              ha   => "11:43:42",
              idpt => 24,
              ja   => 6,
              tn   => 17.725277777778,
              tnp  => 1.0211111111111,
              tps  => "17:43:31",
            },
    "25" => {
              clt  => 1,
              ha   => "12:17:13",
              idpt => 25,
              ja   => 6,
              tn   => 18.283888888889,
              tnp  => 0.55861111111111,
              tps  => "18:17:02",
            },
    "28" => {
              clt  => 1,
              ha   => "13:56:10",
              idpt => 28,
              ja   => 6,
              tn   => 19.933055555556,
              tnp  => 1.5794444444444,
              tps  => "19:55:59",
            },
    "91" => {
              clt  => 1,
              ha   => "14:26:54",
              idpt => 91,
              ja   => 6,
              tn   => 20.445277777778,
              tnp  => 0.51222222222222,
              tps  => "20:26:43",
            },
    "94" => {
              clt  => 1,
              ha   => "15:09:26",
              idpt => 94,
              ja   => 6,
              tn   => 21.154166666667,
              tnp  => 0.70888888888889,
              tps  => "21:09:15",
            },
  },
  identite => [{ nom => "THEVENARD", prenom => "Xavier", sx => "H" }],
  pt => {
    "0"  => {
              a => 1036,
              d => 0,
              idpt => 0,
              km => 0,
              lat => 45.9237,
              meet => 1,
              n => "Chamonix",
              nc => "Depart",
              x => 50,
              ylon => undef,
            },
    "1"  => {
              a => 1739,
              d => 870,
              idpt => 1,
              km => 13.56,
              lat => 45.8792,
              meet => undef,
              n => "Le Delevret",
              nc => "Delev",
              x => 113,
              ylon => undef,
            },
    "2"  => {
              a => 815,
              d => 959,
              idpt => 2,
              km => 20.83,
              lat => 45.8934,
              meet => 1,
              n => "Saint Gervais",
              nc => "StGer",
              x => 147,
              ylon => undef,
            },
    "3"  => {
              a => 1160,
              d => 1536,
              idpt => 3,
              km => 31.11,
              lat => 45.8227,
              meet => 1,
              n => "Les Contamines",
              nc => "Conta",
              x => 195,
              ylon => undef,
            },
    "4"  => {
              a => 1699,
              d => 2076,
              idpt => 4,
              km => 39.24,
              lat => 45.7579,
              meet => undef,
              n => "La Balme",
              nc => "Balme",
              x => 232,
              ylon => undef,
            },
    "5"  => {
              a => 2441,
              d => 2876,
              idpt => 5,
              km => 44.78,
              lat => 45.7221,
              meet => undef,
              n => "Ref. Croix Bonhomme",
              nc => "Bonhom",
              x => 258,
              ylon => undef,
            },
    "6"  => {
              a => 1553,
              d => 2876,
              idpt => 6,
              km => 50.06,
              lat => 45.6965,
              meet => 1,
              n => "Les Chapieux",
              nc => "Chapieu",
              x => 283,
              ylon => undef,
            },
    "7"  => {
              a => 2507,
              d => 3849,
              idpt => 7,
              km => 60.2,
              lat => 45.7514,
              meet => undef,
              n => "Col de la Seigne",
              nc => "Seigne",
              x => 330,
              ylon => undef,
            },
    "8"  => {
              a => 1964,
              d => 4107,
              idpt => 8,
              km => 66.72,
              lat => 45.7705,
              meet => undef,
              n => "Lac Combal",
              nc => "Combal",
              x => 360,
              ylon => undef,
            },
    "9"  => {
              a => 2409,
              d => 4570,
              idpt => 9,
              km => 70.57,
              lat => 45.7723,
              meet => undef,
              n => "Arrete du Mont-Favre",
              nc => "MtFavre",
              x => 378,
              ylon => undef,
            },
    "10" => {
              a => 1958,
              d => 4580,
              idpt => 10,
              km => 75.05,
              lat => 45.7906,
              meet => undef,
              n => "Col Ch\xE9crouit",
              nc => "Checrou",
              x => 399,
              ylon => undef,
            },
    "11" => {
              a => 1191,
              d => 4586,
              idpt => 11,
              km => 79.35,
              lat => 45.7941,
              meet => 1,
              n => "Courmayeur - Dolonne Entr\xE9e",
              nc => "Courm1",
              x => 419,
              ylon => undef,
            },
    "12" => {
              a => 1191,
              d => 4586,
              idpt => 12,
              km => 79.35,
              lat => 45.7941,
              meet => 1,
              n => "Courmayeur - Dolonne Sortie",
              nc => "Courm2",
              x => 419,
              ylon => undef,
            },
    "14" => {
              a => 1977,
              d => 5391,
              idpt => 14,
              km => 84.07,
              lat => 45.8091,
              meet => undef,
              n => "Refuge Bertone",
              nc => "Bertone",
              x => 441,
              ylon => undef,
            },
    "15" => {
              a => 2015,
              d => 5680,
              idpt => 15,
              km => 91.43,
              lat => 45.8469,
              meet => undef,
              n => "Refuge Bonatti",
              nc => "Bonatti",
              x => 475,
              ylon => undef,
            },
    "16" => {
              a => 1772,
              d => 5808,
              idpt => 16,
              km => 96.62,
              lat => 45.8713,
              meet => 1,
              n => "Arnuva",
              nc => "Arnuva",
              x => 499,
              ylon => undef,
            },
    "17" => {
              a => 2527,
              d => 6569,
              idpt => 17,
              km => 101.05,
              lat => 45.8887,
              meet => undef,
              n => "Grand Col Ferret",
              nc => "GdColF",
              x => 520,
              ylon => undef,
            },
    "18" => {
              a => 1603,
              d => 6704,
              idpt => 18,
              km => 111.04,
              lat => 45.9357,
              meet => 1,
              n => "La Fouly",
              nc => "Fouly",
              x => 566,
              ylon => undef,
            },
    "20" => {
              a => 1482,
              d => 7308,
              idpt => 20,
              km => 125.04,
              lat => 46.0277,
              meet => 1,
              n => "Champex-Lac",
              nc => "Champex",
              x => 632,
              ylon => undef,
            },
    "21" => {
              a => 1883,
              d => 8173,
              idpt => 21,
              km => 136.17,
              lat => 46.0559,
              meet => undef,
              n => "La Giete",
              nc => "Giete",
              x => 683,
              ylon => undef,
            },
    "23" => {
              a => 1303,
              d => 8231,
              idpt => 23,
              km => 140.95,
              lat => 46.056,
              meet => 1,
              n => "Trient",
              nc => "Trient",
              x => 706,
              ylon => undef,
            },
    "24" => {
              a => 2005,
              d => 9030,
              idpt => 24,
              km => 146.33,
              lat => 46.0398,
              meet => undef,
              n => "Catogne",
              nc => "Catogne",
              x => 731,
              ylon => undef,
            },
    "25" => {
              a => 1263,
              d => 9057,
              idpt => 25,
              km => 151.41,
              lat => 46.0321,
              meet => 1,
              n => "Vallorcine",
              nc => "Vallo",
              x => 754,
              ylon => undef,
            },
    "28" => {
              a => 2116,
              d => 9930,
              idpt => 28,
              km => 159.08,
              lat => 45.9824,
              meet => undef,
              n => "La Tete aux vents",
              nc => "TaVents",
              x => 790,
              ylon => undef,
            },
    "91" => {
              a => 1871,
              d => 9992,
              idpt => 91,
              km => 162.62,
              lat => 45.9601,
              meet => undef,
              n => "La Flegere",
              nc => "Flegere",
              x => 806,
              ylon => undef,
            },
    "94" => {
              a => 1036,
              d => 10083,
              idpt => 94,
              km => 169.86,
              lat => 45.9236,
              meet => 1,
              n => "Chamonix",
              nc => "Arrivee",
              x => 840,
              ylon => undef,
            },
  },
}
Taisha:~/perl/forum $

il te suffit de remplacer l'appel final à dd par ta propre cuisine...

23/11/2015, 14h17
kenobiwan88

Citation:

Envoyé par cmcmc

tu peux capturer les infos que tu veux, puis une fois que tu as tout, générer ton résultat. Pour cela ajuste ci-dessous les entités et attributs désirés et remplace l'appel final à dd par ta propre cuisine.

Merci infiniment de ton temps cmcmc, mais je t'avoue que je suis TRÈS LOIN d'avoir ton niveau, et j'ai vraiment du mal à adapter le code.
- A quoi réfère @ARGV ? dois je le remplacer par le nom de mon xml ?
- comment obtient tu le résultat de ton deuxième code cité ?
- je ne comprends pas comment utiliser $c...
- dd est une fonction ? Cela appelle à un autre fichier où je dois le coder à la suite

Je me rends bien compte que ton code est HYPER optimisé, mais je nage complètement :oops: ...

Encore désolé... Si tu peux me donner encore un petit coup de pouce ...
23/11/2015, 14h25
djibril
Bonjour à tous,

@cmcmc
1. Ne propose jamais aux débutants d'utiliser des expressions régulières pour analyser du XML, ce n'est jamais bien et c'est vraiment prendre de très mauvaises habitudes. Il faut les inciter à apprendre à utiliser un parseur XML ;
2. Tes codes sont très performants mais difficile à lire pour un débutant, privilégions du code certes verbeux mais claires et surtout lisibles (pas trop compact).
23/11/2015, 15h07
cmcmc
Citation:
Envoyé par djibril

@cmcmc

Ne propose jamais aux débutants d'utiliser des expressions régulières pour analyser du XML, ce n'est jamais bien et c'est vraiment prendre de très mauvaises habitudes. Il faut les inciter à apprendre à utiliser un parseur XML ;
Tes codes sont très performants mais difficile à lire pour un débutant, privilégions du code certes verbeux mais claires et surtout lisibles (pas trop compact).
1) OK. Je ne le ferai plus

2) C'est censé les inciter à réfléchir. Je montre un code opérationnel, preuve à l'appui. Ils peuvent ajouter des traces par-ci par-là pour comprendre comment ça marche. Le débutant en question est "Ingénieur développement logiciels" d'après son profil, il devrait être en mesure de chercher un peu dans la doc. Ce n'est pas à nous de faire son travail. Quand j'ai le temps j'essaie de détailler, si je n'ai pas le temps je montre un code dont il peut peut-être s'inspirer s'il y passe, lui, un peu de temps.
23/11/2015, 15h17
kenobiwan88

Mes excuses pour être aussi peu débrouillard.

Par contre, je comprends votre agacement. Il y a du avoir un problème à la création de mon compte, je suis loin d'être "ingénieur développement logiciel"... il faut que je corrige ca de suite.
J'ai fait des bases de JAVA en école d'ingénieur pendant 6 mois mais après NADA, et je travaille aujourd'hui dans un milieu qui n'a rien a voir avec le développement informatique.

Ce petit script est d'ailleurs pour usage personnel.

Mes excuses, je n'ai pas fait attention, je vais corriger cela de suite pour qu'il n'y ait pas de confusion.

Encore merci
23/11/2015, 15h51
cmcmc
Citation:

Envoyé par kenobiwan88

Merci infiniment de ton temps cmcmc, mais je t'avoue que je suis TRÈS LOIN d'avoir ton niveau, et j'ai vraiment du mal à adapter le code.
- A quoi réfère @ARGV ? dois je le remplacer par le nom de mon xml ?

si tu cherchais un peu dans la doc ou sur google, tu verrais que @ARGV contient les paramètres passés au script. Dans la ligne de commande que je présente perl ok88.pl live.xml il n'y a qu'un paramètre, "live.xml". La liste @ARGV est donc une liste à un seul élément : ("live.xml"). L'affectation my ($filename) = @ARGV; initialise $filename au premier élement de la liste @ARGV.

Citation:

- comment obtient tu le résultat de ton deuxième code cité ?

j'invoque perl avec le script ok88.pl et le paramètre live.xml où live.xml est un fichier dans le répertoire courant contenant les données complètes que tu as données précédemment.

Citation:

- je ne comprends pas comment utiliser $c...

jette un coup d'oeil à la doc, notamment perldsc, perldata, perllol, perlref...

A ce stade $c est une référence à un hash contenant trois clés : identité, e, et pt.

la valeur pour identite est un tableau à un élément. Cet élément est un hashref contenant les attributs sélectionnés pour les entités de type 'identite', à savoir nom, prenom et sx.

la valeur pour pt est un hashref, à raison d'une entrée par entité pt : la clé est l'idpt, et la valeur un hashref des attributs

idem pour e.

par exemple tu accèdes à l'attribut n du pt d'idpt 94 par $c->{pt}{94}{n}.

identite est un tableau plutôt qu'un hash car il n'y a pas d'identifieur unique évident. Cette entité est probablement unique dans le fichier (il vaut mieux...). On accède au nom par
$c->{identite}[0]{nom}

Citation:

- dd est une fonction ? Cela appelle à un autre fichier où je dois le coder à la suite

dd est une fonction exportée par le module Data::Dump.

Citation:

Je me rends bien compte que ton code est HYPER optimisé, mais je nage complètement ...

le code démontre entre choses que tu n'as pas besoin de parser plusieurs fois le fichier avec différents handlers. Le code
Code:

1 2 3 4 XML::Twig->new( twig_handlers => { ... }) ->parsefile($filename);
effectue tout le travail de parsing, pour les handlers définis dans ... .

C'est là qu'il y a un peu de subtilité. le map va construire trois paires nom => handler. Tu l'auras peut-être deviné, les noms sont identite, pt et e. le handler est à chaque fois une fonction anonyme adéquate pour l'extraction et l'accumulation dans $c des attributs des différentes entités d'intérêt. Les paramètres passés au map sont de la forme ['e', 'idpt', [qw(idpt ha ja tps tn tnp clt)]] : le premier élément est le nom de l'entité, le deuxième un nom d'attribut pouvant servir d'index, et le troisième un tableau des noms d'attributs recherchés. Amuse toi à changer ces arguments et voir ce que cela donne...
23/11/2015, 16h29
kenobiwan88

Merci à toi, je vais continuer de tester ceci.
Effectivement, en parrallèle j'avais compris les points @ARGV et le module Data::Dump.

Cependant, bien que j'arrive à accéder à quelques valeurs du hash (premiers test), il me sort une erreur

Citation:

use of uninitialized value $h{$idpt} in hash element at C:\...\ok88.pl

Aurais tu une idée ?

Je vais maintenant essayer de construire des boucles pour aller chercher un petit peu les valeurs qui m'interesse et les mettre en forme...

encore merci de ton temps.
23/11/2015, 16h34
cmcmc

Citation:

Envoyé par kenobiwan88

Mes excuses pour être aussi peu débrouillard.

Par contre, je comprends votre agacement. Il y a du avoir un problème à la création de mon compte, je suis loin d'être "ingénieur développement logiciel"... il faut que je corrige ca de suite.
J'ai fait des bases de JAVA en école d'ingénieur pendant 6 mois mais après NADA, et je travaille aujourd'hui dans un milieu qui n'a rien a voir avec le développement informatique.

Ce petit script est d'ailleurs pour usage personnel.

Mes excuses, je n'ai pas fait attention, je vais corriger cela de suite pour qu'il n'y ait pas de confusion.

Encore merci

Okidoki :)

Pas de soucis. Excuse moi s'il te plaît d'avoir été un peu abrupt. N'hésite pas à poser des questions. Je te promets d'essayer de trouver le temps de répondre, surtout si tu montres que tu as cherché aussi de ton côté. Tu es le bienvenu sur ce forum (et tu as fait le bon choix avec Perl ;) ).
23/11/2015, 16h40
cmcmc

Citation:

use of uninitialized value $h{$idpt} in hash element at C:\...\ok88.pl

montre le message complet et la ligne de code en question stp

Ne t'inquiète pas je ne l'ai pas mal pris.

Alors, j'ai repris ton code que j'appelle avec le live.xml, comme indiqué précedemment.

J'ai commencé à travailler sur l'affichage des données également (d'ailleurs je bosse sur foreach my keys pour remplacer mon compteur $i car le xml de base à la bonne idée d'avoir des "trous" dans la liste des idpt...)

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
30
31
32
33
34
 
#Taisha:~/perl/forum $ cat ok88.pl
use strict;
use warnings;
use XML::Twig;
my ($filename) = @ARGV;
{
    my $c;
    XML::Twig->new(
            twig_handlers => {
                map { my ($name, $id, $wanted_atts) = @$_;
                          $name => sub { my ($t, $e) = @_;
                                               my %h = map { $_ => $e->att($_)} @$wanted_atts;
                                               if ($id) {
                                                    $c->{$name}{$h{$id}} = \%h;
                                               } else {
                                                    push @{$c->{$name}}, \%h;
                                               }
                          } }
                ['identite', undef, [qw(nom prenom sx)]],
                ['e', 'idpt', [qw(idpt ha ja tps tn tnp clt)]],
                ['pt', 'idpt', [qw(idpt n nc km d a x ylon lat meet)]]
            }) ->parsefile($filename);
   # use Data::Dump; dd $c;
 
            for (my $i = 1; $i <= 10; $i++) {
  print("\n$c->{pt}{$i}{n}\n");
            print("$c->{pt}{$i}{km}");
            print("\nAltitude $c->{pt}{$i}{a}m NGF");
            print("\n---------------");
}
 
}
#Taisha:~/perl/forum $

Je te remet le code complet.
le message exact est donc, pour CE code la :

Citation:

Use of uninitialized value $h{"idpt"} in hash element at C:\...\CODE\WWW.pl line 17

J'ai volontairement réduit le chemin C:\..., et WWW.pl est l'équivalent de ok88.pl pour toi.

Cependant, cela n'empêche pas de m'afficher les "print".
Et quand je décommente le use Data::Dump il s'affiche également très bien je pense, mais toujours en me mettant cette erreur.

A noter que cette erreur apparait 26fois sur la console.

Comprends pas trop la...

[edit : le code s'est décalé, sur mon notepad++ la ligne #Taisha:~/perl/forum $ cat ok88.pl est en ligne numéro 1]

Citation:

Envoyé par kenobiwan88

Use of uninitialized value $h{"idpt"} in hash element at C:\...\CODE\WWW.pl line 17

bizarre... quelle version de perl utilises-tu (perl -v) ?

essaie peut-être avec le programme suivant (outre un exemple d'impression, il y a une modif mineure du corps du map de génération des handlers).

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
30
31
32
33
34
35
36
Taisha:~/perl/forum $ cat ok88a.pl
use strict;
use warnings;
use XML::Twig;
use utf8;
 
my ($filename) = @ARGV;
 
{
    my $c;
 
    XML::Twig->new(
	twig_handlers => {
	    map { my ($name, $id, $wanted) = @$_; 
		  my @wanted_atts = @$wanted;
		  $name => sub { my ($t, $e) = @_;
				 my %h = map { $_ => $e->att($_)} @wanted_atts;
				 if ($id) {
				     $c->{$name}{$h{$id}} = \%h;
				 } else {
				     push @{$c->{$name}}, \%h;
				 }
		  } }
	    ['identite', undef, [qw(nom prenom sx)]],
	    ['e', 'idpt', [qw(idpt ja ha jd hd)]],
	    ['pt', 'idpt', [qw(idpt n)]]
	}) ->parsefile($filename);
 
    print "Départ de $c->{pt}{0}{n} : $c->{e}{0}{jd} $c->{e}{0}{hd}\n";
    for (sort { $a <=> $b } keys %{$c->{e}}) {
	next unless $_; 
	my ($idpt, $ja, $ha) = @{$c->{e}{$_}}{qw(idpt ja ha)};
	print "Arrivée à $c->{pt}{$idpt}{n} : $ja $ha\n";
    }
}
Taisha:~/perl/forum $

Chez moi :

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
Taisha:~/perl/forum $ perl -COE ok88a.pl live.xml
Départ de Chamonix : 5 18:00:11
Arrivée à Le Delevret : 5 19:14:57
Arrivée à Saint Gervais : 5 19:49:19
Arrivée à Les Contamines : 5 20:47:46
Arrivée à La Balme : 5 21:44:50
Arrivée à Ref. Croix Bonhomme : 5 22:44:19
Arrivée à Les Chapieux : 5 23:13:08
Arrivée à Col de la Seigne : 6 00:37:37
Arrivée à Lac Combal : 6 01:30:04
Arrivée à Arrete du Mont-Favre : 6 02:10:10
Arrivée à Col Chécrouit : 6 02:35:11
Arrivée à Courmayeur - Dolonne Entrée : 6 03:00:37
Arrivée à Courmayeur - Dolonne Sortie : 6 03:03:59
Arrivée à Refuge Bertone : 6 03:58:55
Arrivée à Refuge Bonatti : 6 04:48:25
Arrivée à Arnuva : 6 05:24:08
Arrivée à Grand Col Ferret : 6 06:18:23
Arrivée à La Fouly : 6 07:10:03
Arrivée à Champex-Lac : 6 08:36:24
Arrivée à La Giete : 6 10:11:35
Arrivée à Trient : 6 10:38:27
Arrivée à Catogne : 6 11:43:42
Arrivée à Vallorcine : 6 12:17:13
Arrivée à La Tete aux vents : 6 13:56:10
Arrivée à La Flegere : 6 14:26:54
Arrivée à Chamonix : 6 15:09:26
Taisha:~/perl/forum $

23/11/2015, 19h08
cmcmc

Citation:

Envoyé par cmcmc

Citation:

@cmcmc

1) Ne propose jamais aux débutants d'utiliser des expressions régulières pour analyser du XML, ce n'est jamais bien et c'est vraiment prendre de très mauvaises habitudes. Il faut les inciter à apprendre à utiliser un parseur XML ;
2) Tes codes sont très performants mais difficile à lire pour un débutant, privilégions du code certes verbeux mais claires et surtout lisibles (pas trop compact).

1) OK. Je ne le ferai plus

2) C'est censé les inciter à réfléchir. Je montre un code opérationnel, preuve à l'appui. Ils peuvent ajouter des traces par-ci par-là pour comprendre comment ça marche. Le débutant en question est "Ingénieur développement logiciels" d'après son profil, il devrait être en mesure de chercher un peu dans la doc. Ce n'est pas à nous de faire son travail. Quand j'ai le temps j'essaie de détailler, si je n'ai pas le temps je montre un code dont il peut peut-être s'inspirer s'il y passe, lui, un peu de temps.

J'apprécierai que la personne qui a moinssé ces prises de position ait l'obligeance de dire pourquoi.
23/11/2015, 19h47
cmcmc

En fait après réflexion

Citation:

Envoyé par cmcmc

Citation:

Envoyé par djibril

@cmcmc

1) Ne propose jamais aux débutants d'utiliser des expressions régulières pour analyser du XML, ce n'est jamais bien et c'est vraiment prendre de très mauvaises habitudes. Il faut les inciter à apprendre à utiliser un parseur XML ;

1) OK. Je ne le ferai plus

Dans son message initial le demandeur cherche simplement à récupérer les valeurs de n, nc, km etc... pour chaque <pt> dans un fichier de données, certes XML, mais trivial : les données recherchées sont des attributs d'une entité sans enfant ni valeur, il n'y a pas de CDATA, pas d'accents, pas de pièges, rien. Franchement, avec cet énoncé, l'utilisation d'expressions régulières ne me paraît pas inappropriée. C'est comme ça que je ferais en production pour mon compte sur les données présentées. Je traite des gigaoctets de données XML en production avec des expressions régulières et ça se passe très bien, merci.

Évidemment si on change le problème, en disant qu'on veut d'autres données, et qu'on présente le fichier complet, ça change la donne. Mais je conteste la sainte obligation a priori d'utiliser systématiquement un parser quand on doit traiter du XML. Je recommande, dans ce contexte comme en général, d'utiliser son cerveau pour choisir l'outil adapté.

Tout ça pour dire que je ne m'interdis pas a priori de présenter dans le futur une solution à base d'expressions régulières si le contexte me paraît adapté.
23/11/2015, 19h58
djibril

Bonsoir cmcmc,

Je ne sais pas qui a voté négativement à ton message, mais bon, on s'en...
Pour revenir à ton message, je ne dis pas que tes regex sont mauvaises, loin de là, mais ce n'est pas une bonne habitude à donner aux débutants. Ce qui ne le sont pas de toute façon ont surement soit fait une regex qui fonctionne dans leur code, soit utilisé un parseur.
Par expérience sur ce forum depuis de nombreuses années, les questions sur les fichiers XML débutent toujours par la récupération de données assez basiques, puis on bifurque rapidement sur d'autres données, sur des fichiers plus gros et plus complexes. Donc autant proposer les meilleurs parseurs XML existants.
23/11/2015, 20h11
djibril

kenobiwan88,

Je sais que lorsque l'on débute, ce n'est pas toujours évident de demander clairement ce que l'on souhaite car on ne connais pas les rouages du langage, néanmoins, il est important de d'expliquer clairement ce que l'on souhaite faire avec un fichier et de montrer ce que l'on souhaite avoir comme résultat.

Récupérer telle ou telle donnée n'est en soi pas compliquée, mais en fonction de ta problématique, nous pouvons t'orienter sur une solution ou une autre.
Parser un fichier XML peut se faire en chunck by chunk, mais il est aussi possible de mettre tout en mémoire. Tout dépend de ta problématique, mais pour cela, faut nous dire ce que tu souhaites vraiment faire.
23/11/2015, 20h28
cmcmc

Citation:

Envoyé par djibril

Bosoir cmcmc,

Je ne sais pas qui a voté négativement à ton message, mais bon, on s'en...

Toi peut-être. J'aimerais comprendre.

Citation:

Pour revenir à ton message, je ne dis pas que tes regex sont mauvaises, loin de là, mais ce n'est pas une bonne habitude à donner aux débutants. Ce qui ne le sont pas de toute façon ont surement soit fait une regex qui fonctionne dans leur code, soit utilisé un parseur.
Par expérience sur ce forum depuis de nombreuses années, les questions sur les fichiers XML débutent toujours par la récupération de données assez basiques, puis on bifurque rapidement sur d'autres données, sur des fichiers plus gros et plus complexes. Donc autant proposer les meilleurs parseurs XML existants.

Peut-être. Je me retrouve pour ma part à devoir traiter des gigaoctets de données en format XML trivial parce qu'à un moment donné un âne bâté (ou son boss) a jugé que c'était plus sexy de produire du XML qu'un CSV. Résultat : volumes multipliés par un facteur compris entre 3 et 10 selon l'imagination du gugusse en charge du nommage des entités et des attributs, avec les impacts qu'on imagine sur la bande passante et l'espace disque. A mon niveau et sur ces fichiers l'utilisation d'expressions régulières permet au moins de minimiser l'utilisation CPU des traitements dont j'ai la responsabilité.

Mais j'entends ce que tu dis et en tiendrai compte.
23/11/2015, 20h47
djibril

Citation:

Envoyé par cmcmc

Peut-être. Je me retrouve pour ma part à devoir traiter des gigaoctets de données en format XML trivial parce qu'à un moment donné un âne bâté (ou son boss) a jugé que c'était plus sexy de produire du XML qu'un CSV. Résultat : volumes multipliés par un facteur compris entre 3 et 10 selon l'imagination du gugusse en charge du nommage des entités et des attributs, avec les impacts qu'on imagine sur la bande passante et l'espace disque. A mon niveau et sur ces fichiers l'utilisation d'expressions régulières permet au moins de minimiser l'utilisation CPU des traitements dont j'ai la responsabilité.

Mais j'entends ce que tu dis et en tiendrai compte.

L'avantage du XML est sa complexité car on peut tout y mettre. Son inconvénient est que l'on peut tout de suite avoir des fichiers de tailles très importantes. Néanmoins, les meilleurs parseurs dont XML::Twig permettent de les analyser sans aucun souci de mémoire car on ne les mets pas en mémoire, uniquement les parties que l'on souhaite, d'où l'avantage des twig_handler. Le module est déjà optimisé donc les regex transparentes pour nous font déjà le job correctement. XML::LibXML fait également le job, est très rapide car écrit en C. Pour ces deux modules, la seule difficulté est de bien les utiliser ;) et ensuite, on ne se souci plus de l'indentation du fichier...

Bonsoir,

je suis navré d'avoir déclencher la polémique (pour la partie technique, je comprends pas grand chose de vos échanges :lol:).

Quoi qu'il en soit, je remercie INFINIMENT cmcmc qui a permis de finaliser la partie 1 de mon projet en une petite journée !!!

J'ai donc un code (presque) fonctionnel.
Pour Djibril, mes excuses j'aurai du commencer à présenter mon projet. Je le fais désormais : le script permet, en rentrant une des adresses de la société livetrail qui assure le chronométrage sur des évenements sportifs, ainsi qu'un numéro de dossard, d'avoir un suivi point par point d'un coureur au choix.

il ne me reste plus qu'à travailler sur l'envoi par mail automatique du contenu du fichier texte de résultat.

Enfin, pendant ces épreuves, je mettrai en place un schtasks toutes les x minutes, afin de recevoir un mail régulier avec l'état d'avancement par heure (si la personne a été pointée).

Voila mon code (presque) finalisé :
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 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 69 use strict; use warnings; use strict; use XML::Twig; use utf8; use LWP::UserAgent; use LWP::Simple; use Data::Dumper; my $urlbase="http://utmb.livetrail.net/coureur.php"; #choix de l'url de la course livetrail my $dossardsuivi="8"; #numéro de dossard impératif my $url=$urlbase."?rech=".$dossardsuivi; #création de l'adresse php complète d'accès au suivi getstore($url, 'suivilive.xml') or die 'Unable to get page'; #récupération des données html et enregistrement # Création du fichier résultat my $FichierResulat = 'resultat.txt'; open( my $FhResultat, '>', $FichierResulat ) or die("Impossible d'ouvrir le fichier $FichierResulat\n$!"); #routine cmcmc my ($filename) = 'suivilive.xml'; { my $c; XML::Twig->new( twig_handlers => { map { my ($name, $id, $wanted) = @$_; my @wanted_atts = @$wanted; $name => sub { my ($t, $e) = @_; my %h = map { $_ => $e->att($_)} @wanted_atts; if ($id) { $c->{$name}{$h{$id}} = \%h; } else { push @{$c->{$name}}, \%h; } } } ['identite', undef, [qw(nom prenom sx)]], ['e', 'idpt', [qw(idpt clt tps hd jd hd)]], ['pt', 'idpt', [qw(idpt km n d)]] }) ->parsefile($filename); print {$FhResultat} "Bienvenu sur le suivi live de $c->{identite}[0]{prenom} $c->{identite}[0]{nom}\n" ; print {$FhResultat} "Depart de $c->{pt}{0}{n} : $c->{e}{0}{hd}\n" ; print {$FhResultat} ("======================================\n\n"); #routine cmcmc trop complexe pour moi #for (sort { $a <=> $b } keys %{$c->{e}}) { #next unless $_; #my ($idpt, $clt, $ha) = @{$c->{e}{$_}}{qw(idpt clt ha)}; #print "$c->{identite}[0]{prenom} est arrivee a $c->{pt}{$idpt}{n} : $ha - Classement : $clt\n"; #} #affiche des résultats à chaque point de passage foreach my $keys (sort {$a <=> $b} keys %{$c->{e}}) { if ($keys!=0){ print {$FhResultat} "\n $c->{identite}[0]{prenom} est arrivee a $c->{pt}{$keys}{n} en $c->{e}{$keys}{clt}e position\n"; print {$FhResultat} "Distance parcourue : $c->{pt}{$keys}{km} km\nAscension : $c->{pt}{$keys}{d} m+\nChrono : $c->{e}{$keys}{tps}\n"; print {$FhResultat} ("---------------------------------------------------------------------------"); } } print("Fichier resultat.txt ok"); }
Cependant cmcmc :
- j'ai toujours le type d'erreur que je t'ai signalé précémment

Citation:

use of uninitialized value $h{'idpt"} in hash element at C:\...\livetrail.pl line 35

- et surtout, jai certains points de passage où le classement et le chrono ne s'affiche pasdans resultat.txt (Vallorcine par exemple). avez vous la même chose ? l'erreur console est la suivante sur les différents points où il manque des infos :

Citation:

use of uninitialized value in concatenation (.) or string at C:\...\livetrail.pl line 60

... ou 61 d'ailleurs.

Pour ce dernier point, cela semble provenir de la forme même du xml, et notamment des balises <e> ou <pt> qui sont toutes les unes à la suite des autres sans retour à la ligne. J'ai fait un mini test rapide en faisant "entrée" entre chaque balise <pt>, cela avait l'air de mieux se comporter. De la à dire que je vois comment faire pour automatiser cette lecture propre ...

Encore merci pour votre aide et pour les cours et tutoriels Perl. Bonne soirée

Citation:

Envoyé par kenobiwan88

- j'ai toujours le type d'erreur que je t'ai signalé précémment

- et surtout, jai certains points de passage où le classement et le chrono ne s'affiche pasdans resultat.txt (Vallorcine par exemple). avez vous la même chose ? l'erreur console est la suivante sur les différents points où il manque des infos :
... ou 61 d'ailleurs.

Avec le fichier xml complet, tout s'éclaire ;)

Le problème vient du fait qu'il y a plusieurs entités nommées e dans le fichier. On a des <pass> <e ... /> ... </pass> mais aussi des <videos> <e ... /> ... </videos>, etc.
Or, notre programme sous sa forme actuelle détecte toutes les entités de type e.

Les entités e qui nous intéressent sont celles qui sont enfants de <pass>.

La modification ci-dessous permet de le faire. On change légèrement la spécification du générateur de handlers:

Code:

['pass/e', 'e', 'idpt', [qw(idpt clt tps hd jd hd)]],

Le premier champ ('pass/e') est maintenant un chemin dans l'arbre xml : ici pass/e signifie qu'on veut les entités de nom e qui sont enfants d'un pass.
Le second champ (ici 'e') est le nom sous lequel on veut la retrouver dans $c. Si undef, on prend la valeur du premier champ. Ici j'ai repris e pour ne rien avoir à changer dans le reste du programme, mais on pourrait prendre 'passage' par exemple, sous réserve de changer toutes les occurrences ultérieures de $c->{e} en $c->{passage}. On aurait pu mettre undef également, mais là il fallait changer $c->{e} en $c->{'pass/e'} ce qui est un peu pénible.
Le troisième champ indique comme avant la clé à utiliser si on représente l'ensemble des entités via un hash
Le quatrième champ est également inchangé, il donne la liste des attributs à collecter
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 XML::Twig->new( twig_handlers => { map { my ($path, $name, $id, $wanted) = @$_; $name = $path unless defined($name); my @wanted_atts = @$wanted; $path => sub { my ($t, $e) = @_; my %h = map { $_ => $e->att($_)} @wanted_atts; if ($id) { die "erreur de modélisation : il y a plusieurs entités de type $path et de nom $name pour la clé $h{id}" if exists $c->{$name}{$h{$id}}; $c->{$name}{$h{$id}} = \%h; } else { push @{$c->{$name}}, \%h; } } } ['identite', undef, undef, [qw(nom prenom sx)]], ['pass/e', 'e', 'idpt', [qw(idpt clt tps hd jd hd)]], ['pt', undef, 'idpt', [qw(idpt km n d)]] }) ->parsefile($filename);
Moyennant cette modif (le reste du code est inchangé), le programme tourne sans warnings chez moi et les chronos semblent crédibles (je te laisse vérifier...)

24/11/2015, 10h34
cmcmc
Autre point, autant il est logique de construire un hashref pour accéder aux pt via leur idpt, autant en fait ça a moins de sens pour les pass/e.

Là en fait on fait confiance au développeur du schema de données, mais bon, il n'est pas déraisonnable de penser que idpt soit un identifier unique pour chaque pt, i.e. une clé primaire sur les pt.

Dans les pass/e, idpt est clairement une clé étrangère sur les pt. Il semble que ce soit également une clé primaire pour les pass/e mais ce n'est pas particulièrement utile. Pour les besoins de cette application il est suffisant de considérer l'ensemble des pass/e comme une liste et non comme un hash.

Je te recommande donc de changer la ligne

Code:

['pass/e', 'e', 'idpt', [qw(idpt clt tps hd jd hd)]],

en

Code:

['pass/e', 'e', undef, [qw(idpt clt tps hd jd hd)]],

et d'adapter en conséquence ton code d'impression. Le point de départ devient $c->{e}[0] au lieu de $c->{e}{0}, et tu peux boucler sur les points de passage par
Code:

1 2 3 4 for my $e (@{$c->{e}}) { next unless $e->{idpt}; # point de départ ... # on accède par exemple au chrono par $e->{tps} }
Ce n'est pas indispensable mais je trouve ça plus propre :)
24/11/2015, 18h59
kenobiwan88

Bonsoir cmcmc

Merci pour ces ultimes précisions.
Je tiens à t'exprimer toute ma gratitude pour l'aide que tu m'as apporté.

Mon projet est donc terminé.

J'ai mis en place l'envoi du contenu des résultats par mail et suis OK sur le schtasks lanceur pour être tenu informé à la fréquence désirée !

(Le même service par le site web coûte 5€ par dossard... Il présente simplement l'avantage d'envoyer une mise à jour juste après le passage à un nouveau point)

Encore merci à toi !
24/11/2015, 20h44
cmcmc
Citation:

Envoyé par kenobiwan88

Mon projet est donc terminé.

Bien ouéj :ccool: :plusser:

N'oublie pas que seul toi peut marquer cette discussion comme résolue.

J'imagine que ce n'est pas une priorité pour toi à ce stade mais ce serait bien que tu comprennes le fonctionnement du générateur de handlers, à savoir la partie ... dans
Code:

1 2 3 4 XML::Twig->new( twig_handlers => { ... }) ->parsefile($filename);
Si tu trouves le temps de t'y intéresser n'hésite pas à revenir poser des questions sur ce fil ou ailleurs. Il y a là quelques trucs pas tout à fait évidents à discuter si ça te dit.

Bonne continuation :)
24/11/2015, 21h03
kenobiwan88

Merci à toi.

Ce premier projet m'a donné envie de me plonger + encore dans perl.
Je reviendrai très vite je pense !

Bonne soirée