#!/usr/bin/perl

use File::Basename;

$usage="usage : prog.pl <dossier>\n";

if (@ARGV!=1) {
	die $usage;
}

mkdir "./patrons/";

$rep = "$ARGV[0]";
$rep =~ s/[\/]$//;

opendir(DIR, $rep) or die "prog.pl n'a pas pu ouvrir le dossier $path\n";
my @files=readdir(DIR);
closedir(DIR);

my @patrons=("nom_adj","nom_nom","nom_prep_nom");

foreach my $p (@patrons){
	
	foreach my $file (@files) {
		my $chemin = "./$rep/$file";
		next if ($file =~ /^\.\.?$/);
		my $nouveaufichier = "$rep-".basename($file,'.xml')."-$p.txt";
		system ("xsltproc -o ./patrons/$nouveaufichier ./$p.xsl $chemin");
		print "$p extrait du fichier $chemin !\n";
	}	
}
