use strict;
use locale;

if ( $#ARGV != 0 ){ 
    die "Usage : ", $0, " REPERTOIRE\n";
}
opendir(REPERTOIRE, $ARGV[0]) or die 
    "Impossible d'ouvrir le répertoire ", $ARGV[0], "\n";
my @fichiers = grep( /\.txt$/, readdir(REPERTOIRE) );
closedir(REPERTOIRE);
for my $f ( @fichiers ){
    my $r = $f ;
    $r =~ s/^(.*)\.txt$/$1.tt/;
    print STDERR $r, "\n";
    `tag-french.bat $f > $r`;
    # Sous Unix, remplacer la ligne précédente par :
    # `tree-tagger-french $f > $r`;
}