sub parcoursarborescencefichiers {
# BL On crée un tableau pour sauvegarder les chemins des fichiers qui nous intéresse
    my $path = shift(@_) ;
	my $tab = shift(@_) ;
	opendir(DIR, $path) ;
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
		next if $file =~ /^\.\.?$/;
		$file = $path."\\".$file;
		if (-d $file) {
			&parcoursarborescencefichiers($file, $tab);	#recurse!
		}
		if (-f $file) {
			if(( $file =~ /\.xml$/) and ($file=~ /\\[0-9][^\\]+$/)) { push(@{$tab}, $file) ; }
		}
    }
}

sub nettoietexte {
    $texte=~s/&#39;/'/g;
    $texte=~s/&#34;/"/g;
    $texte =~ s/&#38;#39;/'/g;
    $texte =~ s/&#38;#34;/"/g;
    $texte =~ s/<[^>]+>//g;
	$texte =~ s/&quote;//g ;
	$texte =~ s/&nbsp;//g ;
    $texte =~ s/&lt;/</g;
    $texte =~ s/&gt;/>/g;
    $texte =~ s/\n//g;
    return $texte;
}

sub etiquetageavectreetagger {
    my ($titre, $texte, $sortie)=@_ ;

    #----- le titre
    my $codage="utf-8";
    my $tmptag= $sortie."\\texteaetiqueter.txt";
	my $sortieTT = $sortie."\\treetagger.txt" ;
	
    open( TMPFILE, ">:encoding(utf-8)", $tmptag) ;
    print TMPFILE $titre,"\n";
    close(TMPFILE);
    
	# On lance TreeTagger avec des commandes système, le dossier TreeTagger doit à la racine du disque C:
	`set PATH=C:\\TreeTagger\\bin;%PATH%` ;
	`perl "C:\\TreeTagger\\cmd\\tokenise-fr.pl" $tmptag | tree-tagger.exe "C:\\TreeTagger\\lib\\french.par" -lemma -token -no-unknown -sgml > $sortieTT`;
    `perl "C:\\TreeTagger\\cmd\\treetagger2xml-utf8.pl" $sortieTT $codage` ;

    # lecture du resultat tagge en xml :
    open(OUT,"<:encoding(utf-8)", $sortieTT.".xml") ;
    my $fistline=<OUT> ;
    my $titreetiquete="" ;
    while (my $l=<OUT>) {
		$titreetiquete.=$l;
    }
    close(OUT);

    #----- le resume
    open (TMPFILE,">:encoding(utf-8)", $tmptag) ;
    print TMPFILE $texte,"\n" ;
    close(TMPFILE);

   `perl "C:\\TreeTagger\\cmd\\tokenise-fr.pl" $tmptag | tree-tagger.exe C:\\TreeTagger\\lib\\french.par -lemma -token -no-unknown -sgml > $sortieTT` ;
   `perl "C:\\TreeTagger\\cmd\\treetagger2xml-utf8.pl" $sortieTT $codage` ;
  
  # lecture du resultat tagge en xml :
    open(OUT,"<:encoding(utf-8)", $sortieTT.".xml") ;
    my $fistline=<OUT>;
	my $texteetiquete="";
    while (my $l=<OUT>) {
		$texteetiquete.=$l;
    }
    close(OUT);

    # on renvoie les resultats :
    return ($titreetiquete,$texteetiquete);
}

"true" ;