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.

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);
Une idée ?