#!/usr/bin/perl

if($#ARGV!=1){print "usage : perl $0 dossier_Cordial fichier_motif"; exit;}

# Création d'un dossier de sorties pour les patrons
my $output="Extractions/"; 

if (! -e $output){ 
	mkdir($output) or die ("Problème à la création du répertoire : $!"); 
}

# Normalisation du chemin d'entrée + récupération du fichier motifs dans une variable 
my $path="$ARGV[0]";
$path=~s/[\/]$//;
my $patron="$ARGV[1]";

# placer les fichiers lus dans un tableau
opendir(DIR, $path) or die "can't open $path: $!\n";
my @files=readdir(DIR);
closedir(DIR);

# pour chaque fichier du dossier d'entrée...
foreach my $file (@files){
	next if $file=~/^\.\.?$/;
	# Création d'un fichier de sortie pour chaque fichier
	my $sortie="$output".$file.'-'.$patron;
	$sortie=~s/\.cnr//; # supression de l'extension .cnr des noms de fichiers de sorties
	$file=$path."/".$file;
	# Exécution du programme extract-terminologie-cordial-OK.pl
	# (changer le nom du programme en fonction de la méthode testée : SF, JMD ou AC)
	system("perl extract-terminologie-cordial-OK.pl $file $patron > $sortie");
}
