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`; }