Bonjour,
j'ai suivi le tuto http://djibril.developpez.com/tutoriels/perl/perl-xml/ pour parses un fichier XML et ça marche impeccable.
Maintenant j'ai plusieurs fichiers XML dans un dossier et j'aimerai tous les parser.
Une idée ?
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 #Ouverture du fichier $doc = 'ACDigest-AnnapolisCityDigest107788.xml'; open(FIC, $doc) or die "Problème à l\'ouverture : $!"; #Parcours du fichier xml while(<FIC>){ #Survol des balises non intéressantes next if (/xml/); next if (/AudioDoc/); next if (/Proc/); next if (/Channel/); next if (/Speaker/); next if (/Segment/); my @l = split; #Split des balises Word #comptage des occurences + mise en minuscule + suppr espaces $mot=lc($l[4]); #stemming $mot = stem($mot); $mot=~ s/\s+//g; # supprime les espaces $mot =~ s/[;.,:-?!]$// ; # supprime la ponctuation #suppression des mots outils if ($stopword{$mot}) {$mot = ''}; #si le mot est différent de la chaine vide if ($mot ne '') {$comptage{$mot} ++}; } # Fermeture des fichiers close($FhResultat);
Partager