#/usr/bin/perl
<<DOC; 
Votre Nom : 
JANVIER 2005
 usage : perl parcours-arborescence-fichiers repertoire-a-parcourir
 Le programme prend en entrée le nom du répertoire contenant les fichiers
 à traiter
 Le programme construit en sortie un fichier structuré contenant sur chaque
 ligne le nom du fichier et le résultat du filtrage :
<FICHIER><NOM>du fichier</NOM></FICHIER><CONTENU>du filtrage</CONTENU></FICHIER>
DOC
#
use XML::RSS;
use Unicode::String qw(utf8);
use XML::Entities;
my $nbItems=0;
my $nbItemsOK=0;
#-----------------------------------------------------------
my $rep="$ARGV[0]";
# on s'assure que le nom du répertoire ne se termine pas par un "/"
$rep=~ s/[\/]$//;
# on déclare les tableaux associatifs permettant de traiter la duplication des contenus
my %dicoTitre=();
my %dicoDescription=();
#----------------------------------------
# ouverture des fichiers XML 
my $outputALAUNE="SORTIE-alaune.xml";
if (!open (OUTALAUNE,">:encoding(UTF-8)","$outputALAUNE")) { die "Pb a l'ouverture du fichier $outALAUNE"};
print OUTALAUNE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTALAUNE "<rubrique nom=\"ALAUNE\">\n";
close OUTALAUNE;
my $outputINTER="SORTIE-inter.xml";
if (!open (OUTINTER,">:encoding(UTF-8)","$outputINTER")) { die "Pb a l'ouverture du fichier $outINTER"};
print OUTINTER "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTINTER "<rubrique nom=\"INTERNATIONAL\">\n";
close OUTINTER;
my $outputEUROPE="SORTIE-europe.xml";
if (!open (OUTEUROPE,">:encoding(UTF-8)","$outputEUROPE")) { die "Pb a l'ouverture du fichier $outEUROPE"};
print OUTEUROPE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTEUROPE "<rubrique nom=\"EUROPE\">\n";
close OUTEUROPE;
my $outputSOCIETE="SORTIE-societe.xml";
if (!open (OUTSOCIETE,">:encoding(UTF-8)","$outputSOCIETE")) { die "Pb a l'ouverture du fichier $outSOCIETE"};
print OUTSOCIETE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTSOCIETE "<rubrique nom=\"SOCIETE\">\n";
close OUTSOCIETE;
my $outputOPINION="SORTIE-opinion.xml";
if (!open (OUTOPINION,">:encoding(UTF-8)","$outputOPINION")) { die "Pb a l'ouverture du fichier $outOPINION"};
print OUTOPINION "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTOPINION "<rubrique nom=\"OPINION\">\n";
close OUTOPINION;
my $outputECONOMIE="SORTIE-economie.xml";
if (!open (OUTECONOMIE,">:encoding(UTF-8)","$outputECONOMIE")) { die "Pb a l'ouverture du fichier $outECONOMIE"};
print OUTECONOMIE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTECONOMIE "<rubrique nom=\"ECONOMIE\">\n";
close OUTECONOMIE;
my $outputMEDIA="SORTIE-media.xml";
if (!open (OUTMEDIA,">:encoding(UTF-8)","$outputMEDIA")) { die "Pb a l'ouverture du fichier $outMEDIA"};
print OUTMEDIA "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTMEDIA "<rubrique nom=\"MEDIA\">\n";
close OUTMEDIA;
my $outputRDV="SORTIE-rdv.xml";
if (!open (OUTRDV,">:encoding(UTF-8)","$outputRDV")) { die "Pb a l'ouverture du fichier $outRDV"};
print OUTRDV "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTRDV "<rubrique nom=\"RDV\">\n";
close OUTRDV;
my $outputSPORT="SORTIE-sport.xml";
if (!open (OUTSPORT,">:encoding(UTF-8)","$outputSPORT")) { die "Pb a l'ouverture du fichier $outSPORT"};
print OUTSPORT "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTSPORT "<rubrique nom=\"SPORT\">\n";
close OUTSPORT;
my $outputENVIRONNEMENT="SORTIE-environnement.xml";
if (!open (OUTENV,">:encoding(UTF-8)","$outputENVIRONNEMENT")) { die "Pb a l'ouverture du fichier $outENVIRONNEMENT"};
print OUTENV "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTENV "<rubrique nom=\"ENVIRONNEMENT\">\n";
close OUTENV;
my $outputCULTURE="SORTIE-culture.xml";
if (!open (OUTCULTURE,">:encoding(UTF-8)","$outputCULTURE")) { die "Pb a l'ouverture du fichier $outCULTURE"};
print OUTCULTURE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTCULTURE "<rubrique nom=\"CULTURE\">\n";
close OUTCULTURE;
my $outputLIVRES="SORTIE-livres.xml";
if (!open (OUTLIVRES,">:encoding(UTF-8)","$outputLIVRES")) { die "Pb a l'ouverture du fichier $outLIVRES"};
print OUTLIVRES "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTLIVRES "<rubrique nom=\"LIVRES\">\n";
close OUTLIVRES;
my $outputCINEMA="SORTIE-cinema.xml";
if (!open (OUTCINEMA,">:encoding(UTF-8)","$outputCINEMA")) { die "Pb a l'ouverture du fichier $outCINEMA"};
print OUTCINEMA "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTCINEMA "<rubrique nom=\"CINEMA\">\n";
close OUTCINEMA;
my $outputVOYAGES="SORTIE-voyages.xml";
if (!open (OUTVOYAGES,">:encoding(UTF-8)","$outputVOYAGES")) { die "Pb a l'ouverture du fichier $outVOYAGES"};
print OUTVOYAGES "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTVOYAGES "<rubrique nom=\"VOYAGES\">\n";
close OUTVOYAGES;
my $outputTECHNOLOGIES="SORTIE-technologies.xml";
if (!open (OUTTECHNO,">:encoding(UTF-8)","$outputTECHNOLOGIES")) { die "Pb a l'ouverture du fichier $outTECHNOLOGIES"};
print OUTTECHNO "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTTECHNO "<rubrique nom=\"TECHNOLOGIES\">\n";
close OUTTECHNO;
my $outputPOLITIQUE="SORTIE-politique.xml";
if (!open (OUTPOLITIQUE,">:encoding(UTF-8)","$outputPOLITIQUE")) { die "Pb a l'ouverture du fichier $outPOLITIQUE"};
print OUTPOLITIQUE "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n";
print OUTPOLITIQUE "<rubrique nom=\"POLITIQUE\">\n";
close OUTPOLITIQUE;

#ouverture des fichiers TXT
my $outputALAUNEtxt="SORTIE-alaune.txt";
if (!open (OUTALAUNE,">:encoding(UTF-8)","$outputALAUNEtxt")) { die "Pb a l'ouverture du fichier $outALAUNEtxt"};
close OUTALAUNE;
my $outputINTERtxt="SORTIE-inter.txt";
if (!open (OUTINTER,">:encoding(UTF-8)","$outputINTERtxt")) { die "Pb a l'ouverture du fichier $outINTERtxt"};
close OUTINTER;
my $outputEUROPEtxt="SORTIE-europe.txt";
if (!open (OUTEUROPE,">:encoding(UTF-8)","$outputEUROPEtxt")) { die "Pb a l'ouverture du fichier $outEUROPEtxt"};
close OUTEUROPE;
my $outputSOCIETEtxt="SORTIE-societe.txt";
if (!open (OUTSOCIETE,">:encoding(UTF-8)","$outputSOCIETEtxt")) { die "Pb a l'ouverture du fichier $outSOCIETEtxt"};
close OUTSOCIETE;
my $outputOPINIONtxt="SORTIE-opinion.txt";
if (!open (OUTOPINION,">:encoding(UTF-8)","$outputOPINIONtxt")) { die "Pb a l'ouverture du fichier $outOPINIONtxt"};
close OUTOPINION;
my $outputECONOMIEtxt="SORTIE-economie.txt";
if (!open (OUTECONOMIE,">:encoding(UTF-8)","$outputECONOMIEtxt")) { die "Pb a l'ouverture du fichier $outECONOMIEtxt"};
close OUTECONOMIE;
my $outputMEDIAtxt="SORTIE-media.txt";
if (!open (OUTMEDIA,">:encoding(UTF-8)","$outputMEDIAtxt")) { die "Pb a l'ouverture du fichier $outMEDIAtxt"};
close OUTMEDIA;
my $outputRDVtxt="SORTIE-rdv.txt";
if (!open (OUTRDV,">:encoding(UTF-8)","$outputRDVtxt")) { die "Pb a l'ouverture du fichier $outRDVtxt"};
close OUTRDV;
my $outputSPORTtxt="SORTIE-sport.txt";
if (!open (OUTSPORT,">:encoding(UTF-8)","$outputSPORTtxt")) { die "Pb a l'ouverture du fichier $outSPORTtxt"};
close OUTSPORT;
my $outputENVIRONNEMENTtxt="SORTIE-environnement.txt";
if (!open (OUTENV,">:encoding(UTF-8)","$outputENVIRONNEMENTtxt")) { die "Pb a l'ouverture du fichier $outENVIRONNEMENTtxt"};
close OUTENV;
my $outputCULTUREtxt="SORTIE-culture.txt";
if (!open (OUTCULTURE,">:encoding(UTF-8)","$outputCULTUREtxt")) { die "Pb a l'ouverture du fichier $outCULTUREtxt"};
close OUTCULTURE;
my $outputLIVREStxt="SORTIE-livres.txt";
if (!open (OUTLIVRES,">:encoding(UTF-8)","$outputLIVREStxt")) { die "Pb a l'ouverture du fichier $outLIVREStxt"};
close OUTLIVRES;
my $outputCINEMAtxt="SORTIE-cinema.txt";
if (!open (OUTCINEMA,">:encoding(UTF-8)","$outputCINEMAtxt")) { die "Pb a l'ouverture du fichier $outCINEMAtxt"};
close OUTCINEMA;
my $outputVOYAGEStxt="SORTIE-voyages.txt";
if (!open (OUTVOYAGES,">:encoding(UTF-8)","$outputVOYAGEStxt")) { die "Pb a l'ouverture du fichier $outVOYAGEStxt"};
close OUTVOYAGES;
my $outputTECHNOLOGIEStxt="SORTIE-technologies.txt";
if (!open (OUTTECHNO,">:encoding(UTF-8)","$outputTECHNOLOGIEStxt")) { die "Pb a l'ouverture du fichier $outTECHNOLOGIEStxt"};
close OUTTECHNO;
my $outputPOLITIQUEtxt="SORTIE-politique.txt";
if (!open (OUTPOLITIQUE,">:encoding(UTF-8)","$outputPOLITIQUEtxt")) { die "Pb a l'ouverture du fichier $outPOLITIQUEtxt"};
close OUTPOLITIQUE;
#----------------------------------------
&parcoursarborescencefichiers($rep);	#recurse!
#----------------------------------------
# fermeture des fichiers XML
$outputALAUNE="SORTIE-alaune.xml";
if (!open (OUTALAUNE,">>:encoding(UTF-8)","$outputALAUNE")) { die "Pb a l'ouverture du fichier $outALAUNE"};
print OUTALAUNE "</rubrique>\n";
close OUTALAUNE;
$outputINTER="SORTIE-inter.xml";
if (!open (OUTINTER,">>:encoding(UTF-8)","$outputINTER")) { die "Pb a l'ouverture du fichier $outINTER"};
print OUTINTER "</rubrique>\n";
close OUTINTER;
$outputEUROPE="SORTIE-europe.xml";
if (!open (OUTEUROPE,">>:encoding(UTF-8)","$outputEUROPE")) { die "Pb a l'ouverture du fichier $outEUROPE"};
print OUTEUROPE "</rubrique>\n";
close OUTEUROPE;
$outputSOCIETE="SORTIE-societe.xml";
if (!open (OUTSOCIETE,">>:encoding(UTF-8)","$outputSOCIETE")) { die "Pb a l'ouverture du fichier $outSOCIETE"};
print OUTSOCIETE "</rubrique>\n";
close OUTSOCIETE;
$outputOPINION="SORTIE-opinion.xml";
if (!open (OUTOPINION,">>:encoding(UTF-8)","$outputOPINION")) { die "Pb a l'ouverture du fichier $outOPINION"};
print OUTOPINION "</rubrique>\n";
close OUTOPINION;
$outputECONOMIE="SORTIE-economie.xml";
if (!open (OUTECONOMIE,">>:encoding(UTF-8)","$outputECONOMIE")) { die "Pb a l'ouverture du fichier $outECONOMIE"};
print OUTECONOMIE "</rubrique>\n";
close OUTECONOMIE;
$outputMEDIA="SORTIE-media.xml";
if (!open (OUTMEDIA,">>:encoding(UTF-8)","$outputMEDIA")) { die "Pb a l'ouverture du fichier $outMEDIA"};
print OUTMEDIA "</rubrique>\n";
close OUTMEDIA;
$outputRDV="SORTIE-rdv.xml";
if (!open (OUTRDV,">>:encoding(UTF-8)","$outputRDV")) { die "Pb a l'ouverture du fichier $outRDV"};
print OUTRDV "</rubrique>\n";
close OUTRDV;
$outputSPORT="SORTIE-sport.xml";
if (!open (OUTSPORT,">>:encoding(UTF-8)","$outputSPORT")) { die "Pb a l'ouverture du fichier $outSPORT"};
print OUTSPORT "</rubrique>\n";
close OUTSPORT;
$outputENVIRONNEMENT="SORTIE-environnement.xml";
if (!open (OUTENV,">>:encoding(UTF-8)","$outputENVIRONNEMENT")) { die "Pb a l'ouverture du fichier $outENVIRONNEMENT"};
print OUTENV "</rubrique>\n";
close OUTENV;
$outputCULTURE="SORTIE-culture.xml";
if (!open (OUTCULTURE,">>:encoding(UTF-8)","$outputCULTURE")) { die "Pb a l'ouverture du fichier $outCULTURE"};
print OUTCULTURE "</rubrique>\n";
close OUTCULTURE;
$outputLIVRES="SORTIE-livres.xml";
if (!open (OUTLIVRES,">>:encoding(UTF-8)","$outputLIVRES")) { die "Pb a l'ouverture du fichier $outLIVRES"};
print OUTLIVRES "</rubrique>\n";
close OUTLIVRES;
$outputCINEMA="SORTIE-cinema.xml";
if (!open (OUTCINEMA,">>:encoding(UTF-8)","$outputCINEMA")) { die "Pb a l'ouverture du fichier $outCINEMA"};
print OUTCINEMA "</rubrique>\n";
close OUTCINEMA;
$outputVOYAGES="SORTIE-voyages.xml";
if (!open (OUTVOYAGES,">>:encoding(UTF-8)","$outputVOYAGES")) { die "Pb a l'ouverture du fichier $outVOYAGES"};
print OUTVOYAGES "</rubrique>\n";
close OUTVOYAGES;
$outputTECHNOLOGIES="SORTIE-technologies.xml";
if (!open (OUTTECHNO,">>:encoding(UTF-8)","$outputTECHNOLOGIES")) { die "Pb a l'ouverture du fichier $outTECHNOLOGIES"};
print OUTTECHNO "</rubrique>\n";
close OUTTECHNO;
$outputPOLITIQUE="SORTIE-politique.xml";
if (!open (OUTPOLITIQUE,">>:encoding(UTF-8)","$outputPOLITIQUE")) { die "Pb a l'ouverture du fichier $outPOLITIQUE"};
print OUTPOLITIQUE "</rubrique>\n";
close OUTPOLITIQUE;

#fermeture des fichiers TXT
$outputALAUNEtxt="SORTIE-alaune.txt";
if (!open (OUTALAUNE,">>:encoding(UTF-8)","$outputALAUNEtxt")) { die "Pb a l'ouverture du fichier $outALAUNEtxt"};
close OUTALAUNE;
$outputINTERtxt="SORTIE-inter.txt";
if (!open (OUTINTER,">>:encoding(UTF-8)","$outputINTERtxt")) { die "Pb a l'ouverture du fichier $outINTERtxt"};
close OUTINTER;
$outputEUROPEtxt="SORTIE-europe.txt";
if (!open (OUTEUROPE,">>:encoding(UTF-8)","$outputEUROPEtxt")) { die "Pb a l'ouverture du fichier $outEUROPEtxt"};
close OUTEUROPE;
$outputSOCIETEtxt="SORTIE-societe.txt";
if (!open (OUTSOCIETE,">>:encoding(UTF-8)","$outputSOCIETEtxt")) { die "Pb a l'ouverture du fichier $outSOCIETEtxt"};
close OUTSOCIETE;
$outputOPINIONtxt="SORTIE-opinion.txt";
if (!open (OUTOPINION,">>:encoding(UTF-8)","$outputOPINIONtxt")) { die "Pb a l'ouverture du fichier $outOPINIONtxt"};
close OUTOPINION;
$outputECONOMIEtxt="SORTIE-economie.txt";
if (!open (OUTECONOMIE,">>:encoding(UTF-8)","$outputECONOMIEtxt")) { die "Pb a l'ouverture du fichier $outECONOMIEtxt"};
close OUTECONOMIE;
$outputMEDIAtxt="SORTIE-media.txt";
if (!open (OUTMEDIA,">>:encoding(UTF-8)","$outputMEDIAtxt")) { die "Pb a l'ouverture du fichier $outMEDIAtxt"};
close OUTMEDIA;
$outputRDVtxt="SORTIE-rdv.txt";
if (!open (OUTRDV,">>:encoding(UTF-8)","$outputRDVtxt")) { die "Pb a l'ouverture du fichier $outRDVtxt"};
close OUTRDV;
$outputSPORTtxt="SORTIE-sport.txt";
if (!open (OUTSPORT,">>:encoding(UTF-8)","$outputSPORTtxt")) { die "Pb a l'ouverture du fichier $outSPORTtxt"};
close OUTSPORT;
$outputENVIRONNEMENTtxt="SORTIE-environnement.txt";
if (!open (OUTENV,">>:encoding(UTF-8)","$outputENVIRONNEMENTtxt")) { die "Pb a l'ouverture du fichier $outENVIRONNEMENTtxt"};
close OUTENV;
$outputCULTUREtxt="SORTIE-culture.txt";
if (!open (OUTCULTURE,">>:encoding(UTF-8)","$outputCULTUREtxt")) { die "Pb a l'ouverture du fichier $outCULTUREtxt"};
close OUTCULTURE;
$outputLIVREStxt="SORTIE-livres.txt";
if (!open (OUTLIVRES,">>:encoding(UTF-8)","$outputLIVREStxt")) { die "Pb a l'ouverture du fichier $outLIVREStxt"};
close OUTLIVRES;
$outputEXAMENStxt="SORTIE-examens.txt";
if (!open (OUTEXAMENS,">>:encoding(UTF-8)","$outputEXAMENStxt")) { die "Pb a l'ouverture du fichier $outEXAMENStxt"};
close OUTEXAMENS;
$outputCINEMAtxt="SORTIE-cinema.txt";
if (!open (OUTCINEMA,">>:encoding(UTF-8)","$outputCINEMAtxt")) { die "Pb a l'ouverture du fichier $outCINEMAtxt"};
close OUTCINEMA;
$outputVOYAGEStxt="SORTIE-voyages.txt";
if (!open (OUTVOYAGES,">>:encoding(UTF-8)","$outputVOYAGEStxt")) { die "Pb a l'ouverture du fichier $outVOYAGEStxt"};
close OUTVOYAGES;
$outputTECHNOLOGIEStxt="SORTIE-technologies.txt";
if (!open (OUTTECHNO,">>:encoding(UTF-8)","$outputTECHNOLOGIEStxt")) { die "Pb a l'ouverture du fichier $outTECHNOLOGIEStxt"};
close OUTTECHNO;
$outputPOLITIQUEtxt="SORTIE-politique.txt";
if (!open (OUTPOLITIQUE,">>:encoding(UTF-8)","$outputPOLITIQUEtxt")) { die "Pb a l'ouverture du fichier $outPOLITIQUEtxt"};
close OUTPOLITIQUE;
print "NB items traites : $nbItems / $nbItemsOK \n";
exit;


#----------------------------------------------
sub factorisation {
	my ($f1,$f2,$f3,$f4)=@_;
	# on va extraire les éléments voulus grâce à XML::RSS
	my $rss = new XML::RSS;
	$rss->parsefile($f1);
	foreach my $item (@{$rss->{'items'}}) {
		$nbItems++;
		my $titre=$item->{'title'};
		my $description=$item->{'description'};
		# on utilise XML::Entities::decode pour nettoyer les titres et descriptions
		$titreclean = XML::Entities::decode('all', $titre);
		$descriptionclean = XML::Entities::decode('all', $description);
		if ((!(exists $dicoTitre{$titre})) and (!(exists $dicoDescription{$description}))){
			$nbItemsOK++;
			$dicoTitre{$titre}=1;
			$dicoDescription{$description}=1;
			# on crée en sortie un fichier xml pour chaque rubrique du journal Le Monde, contenant tous les titres associés à leur texte.
			if (!open(OUTxml,">>:encoding(UTF-8)",$f2)) { die "Pb a l'ouverture du fichier $f2"};
			print OUTxml"<item><titre>".$titreclean."</titre><description>".$descriptionclean."</description></item>\n";
			close OUTxml;
			# on fait de même mais au format txt
			if (!open(OUTtxt,">>:encoding(UTF-8)",$f3)) { die "Pb a l'ouverture du fichier $f3"};
			print OUTtxt "\n".$titreclean."\n".$descriptionclean."\n";
			close OUTtxt;
		
		}
	}
}

#----------------------------------------------

sub parcoursarborescencefichiers {
    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;
	if (-d $file) {
		&parcoursarborescencefichiers($file);	#recurse!
	}
	# ici on va appliquer la factorisation pour tous les fichiers étants identifiés par les numéros ci-dessous
	if (-f $file) {
		if ($file=~/0,2-3208,1-0,0\.xml$/) {&factorisation($file,$outputALAUNE,$outputALAUNEtxt,$outputALAUNEtagger)}
		if ($file=~/0,2-3210,1-0,0\.xml$/) {&factorisation($file,$outputINTER,$outputINTERtxt,$outputINTERtagger)}
		if ($file=~/0,2-3214,1-0,0\.xml$/) {&factorisation($file,$outputEUROPE,$outputEUROPEtxt,$outputEUROPEtagger)}
		if ($file=~/0,2-3224,1-0,0\.xml$/) {&factorisation($file,$outputSOCIETE,$outputSOCIETEtxt,$outputSOCIETEtagger)}
		if ($file=~/0,2-3232,1-0,0\.xml$/) {&factorisation($file,$outputOPINION,$outputOPINIONtxt,$outputOPINIONtagger)}
		if ($file=~/0,2-3234,1-0,0\.xml$/) {&factorisation($file,$outputECONOMIE,$outputECONOMIEtxt,$outputECONOMIEtagger)}
		if ($file=~/0,2-3236,1-0,0\.xml$/) {&factorisation($file,$outputMEDIA,$outputMEDIAtxt,$outputMEDIAtagger)}
		if ($file=~/0,2-3238,1-0,0\.xml$/) {&factorisation($file,$outputRDV,$outputRDVtxt,$outputRDVtagger)}
		if ($file=~/0,2-3242,1-0,0\.xml$/) {&factorisation($file,$outputSPORT,$outputSPORTtxt,$outputSPORTtagger)}
		if ($file=~/0,2-3244,1-0,0\.xml$/) {&factorisation($file,$outputENVIRONNEMENT,$outputENVIRONNEMENTtxt,$outputENVIRONNEMENTtagger)}
		if ($file=~/0,2-3246,1-0,0\.xml$/) {&factorisation($file,$outputCULTURE,$outputCULTUREtxt,$outputCULTUREtagger)}
		if ($file=~/0,2-3260,1-0,0\.xml$/) {&factorisation($file,$outputLIVRES,$outputLIVREStxt,$outputLIVREStagger)}
		if ($file=~/0,2-3476,1-0,0\.xml$/) {&factorisation($file,$outputCINEMA,$outputCINEMAtxt,$outputCINEMAtagger)}
		if ($file=~/0,2-3546,1-0,0\.xml$/) {&factorisation($file,$outputVOYAGES,$outputVOYAGEStxt,$outputVOYAGEStagger)}
		if ($file=~/0,2-651865,1-0,0\.xml$/) {&factorisation($file,$outputTECHNOLOGIES,$outputTECHNOLOGIEStxt,$outputTECHNOLOGIEStagger)}
		if ($file=~/0,57-0,64-823353,0\.xml$/) {&factorisation($file,$outputPOLITIQUE,$outputPOLITIQUEtxt,$outputPOLITIQUEtagger)}
	}
    }

}
