#on créé la boucle qui permettra de parcourir l'ensemble du corpus (arborescence de fichiers)
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
		next if $file =~ /^\.\.?$/;
		$file = $path."/".$file;
			#si on tombe sur un dossier, on recommence!
			if (-d $file) {
	    		&parcoursArboFichRub($file);	#recurse!
				}
			#si c'est un fichier, et que c'est un .xml, on extrait une suite de chiffre de son nom
			if (-f $file) {
				if ($file=~/\.xml$/) {
					$file=~/^.+?-(\d*),.+?\.xml$/;
					my $numRub=$1;
					#print "$numRub\n";
					
					#puis on détermine si cette suite a déjà été détectée auparavant. Si ce n'est pas le cas, on l'ajoute au dictionnaire
					if (!(exists($dicoDesRubs{$numRub}))) {
						$dicoDesRubs{$numRub}++;
						my $encodage=`file -i $file | cut -d= -f2`;
						chomp($encodage);
						$ligne="";
						
						#et on ouvre le fichier afin de récupérer le nom du fichier correspondant au numéro de rubrique
						open(FILEIN,"<:encoding($encodage)",$file);
						while (my $small_ligne=<FILEIN>) {
							chomp($ligne);
							$ligne.=$small_ligne;
							}

					$ligne =~ s/>[[:space:]]</></g; #on supprime tous les blancs entre les balises
					if (uc($encodage) ne "UTF-8"){utf8($ligne);} #c'est ici que l'on convertit en UTF-8 la concaténation de toutes les "small_lignes"
					
					#voici la RegEx qui permet de cibler précisément le nom de la rubrique 
					while ($ligne=~/<channel><title>(.+?) - LeMonde.fr<\/title>/g) {
						my $nomRub=$1;
						#on la nettoie (casse, caractères spéciaux), puis on associe un numéro à un nom dans un dico
						$nomRub=&nettoieRub($nomRub);
						$index_rub{$numRub}=$nomRub;
						#on affiche dans le terminal le numéro suivi du nom de rubrique associé
						print "$numRub\t$nomRub\n";
						}
					}
				}
			}
		}
	}

print "Choisissez une rubrique:","\n";
my $choiceRub = <STDIN>;
chomp $choiceRub;
print $index_rub{$choiceRub},"\n";

if ($file=~/$choiceRub/) {
	#premier test d'encodage avec file
	my $encodage=`file -i $file | cut -d= -f2`;
	print "ENCODAGE $i : $encodage";
	chomp($encodage); #on supprime l 'éventuel retour à la ligne
	$i++;
	#print $i++,"\n";
	#deuxième test, si le premier a échoué, on récupère l'encodage à l'intérieur du fichier
	if ($encodage eq "unknown-8bit") {
		open(FILE_ENC,$file);
		while (my $ligne_enc=<FILE_ENC>) {
			if ($ligne_enc=~m/encoding=\"(.+?)\"/) {
		        	$encodage=$1;
				print "ENCODAGE_RegExp : $encodage\n"
				}
			}
			close(FILE_ENC);
		}

while ($ligne=~/<item>.+?<title>(.+?)<\/title>.+?<description>(.+?)<\/description>.+?<pubDate>(.+?)<\/pubDate>/g) {
	my $titre=$1;
	my $desc=$2;
	my $date=$3;

        $titre=&nettoieText($titre);
	$desc=&nettoieText($desc);
	$date=&nettoieText($date);

#-----------------------------------------------------------
use Unicode::String qw(utf8);
use XML::RSS;
#-----------------------------------------------------------

eval {$rss->parsefile($file); };
if( $@ ) {
	$@ =~ s/at \/.*?$//s; # remove module line number
	print STDERR "\nERROR in '$rep':\n$@\n";
	}
else {
        my $date=$rss->{'channel'}->{'pubDate'};
	foreach my $item (@{$rss->{'items'}}) {
		my $titre=$item->{'title'};
		my $desc=$item->{'description'};
                }
        }