	
sub parseIXEMELLE {
	use XML::LibXML;
	my @contenu ;
	my $filtre = shift(@_) ;
	my $fichiers = shift(@_) ;
	my $sortie = shift(@_) ;
	my $code = shift(@_) ;
	my $entree = quotemeta(shift(@_)) ;

	my $log = $sortie."\\LOG.txt"; ;
	open( LOG, ">", $log) ;
	
	foreach my $file(@{$fichiers})
	{
		my $lu = XML::LibXML->new();
		my $parse = $lu->parse_file( $file ) ;

		my $codage = $parse->getEncoding() ;
		print LOG $file, "\t", $codage, "\n" ;
		eval { decode ($codage, "test") };
		if ( defined ($@) ) 
		{ 
			if( $codage =~ /.*8859.*1.*/i ) { $codage = 'iso-8859-1' ; }
			else { $codage = "utf8" ;}
		}
		my $cat = $parse->findvalue('//channel/title') ;
		if ($codage ne "utf8") { $cat = decode( $codage, $cat ) ; }
		$cat =~ s/^Le Monde\.fr : //i ;
		$cat =~ s/ - Le Monde\.fr$//i ;
		
		my @contenu ;
		foreach my $item ($parse->getElementsByTagName('item'))
		{
			my $titre = $item->getElementsByTagName('title') ;
			if ($codage ne "utf8") { $titre = decode( $codage, $titre ) ; }
			$titre = &nettoietexte( $titre ) ;
			my $texte = $item->getElementsByTagName('description') ;
			if ($codage ne "utf8") { $texte = decode( $codage, $texte ) ; }
			$texte = &nettoietexte( $texte ) ;
			if(( $texte =~ /.*$filtre.*/i ) or ( $titre =~ /$filtre/))
			{
				print TOUT "Titre : ".$titre."\n" ;
				print TOUT "Resume : ".$texte."\n" ;
				my $txt ;
				if( $titre =~ /[^\.\?!]$/ ) { $txt = $titre.". ".$texte ;}
				else { $txt = $titre." ".$texte ; }
				push( @contenu, $txt ) ;
			}
		}
		if( $#contenu >= 0 )
		{
			$file =~ s/$entree\\(.+)$/$1/i ;
			print XOUT "\t\t\t<FICHIER>\n\t\t\t\t<NOM>".$file."</NOM>\n\t\t\t\t<TITRE>".$cat."</TITRE>\n" ;
			foreach my $t ( @contenu )
			{
				print XOUT "\t\t\t\t<CONTENU>".$t."</CONTENU>\n" ;
			}
			print XOUT "\t\t\t</FICHIER>\n" ;
		}
	}
}
"true" ;


# On vérifie le nombre d'arguments de l'appel au script ($0 : le nom du script)
# if($#ARGV!=0){
	# print "usage : perl $0 fichier_tag fichier_motif";
	# exit;
# }
# ---------------------------------------------------------------------------------------------------------------------------------------------------
# my $encodagesortie="utf-8";
# open(OUT1,">:encoding($encodagesortie)","sortie-textebrut-avec-xmllibxml.txt");
# open(OUT2,">:encoding($encodagesortie)","sortie-textexml-avec-xmllibxml.xml");
# print OUT2 "<?xml version=\"1.0\" encoding=\"$encodagesortie\" ?>\n";
# print OUT2 "<file>\n";
# print OUT2 "<name>$ARGV[0]</name>\n";
# my $input_file= shift @ARGV;

# my $parser = XML::LibXML->new();
# my $xp = $parser->parse_file($input_file);

# boucle sur les nœud s reconnus du chemin xpath
# foreach my $noeud ( $xp->findnodes('//item')->get_nodelist ) {
	# my $titre=$noeud->findnodes('title')->string_value;
	# my $resume=$noeud->findnodes('description')->string_value;
	# $titre=&nettoietexte($titre);
	# $resume=&nettoietexte($resume);
	# print OUT1 "Titre : $titre \n";
	# print OUT1 "Resume : $resume \n";;
	# print OUT2 "<item><title>$titre</title><abstract>$resume</abstract></item>\n";
# }
