#!/usr/bin/perl

#On crée un fichier en sortie dans lequel nous allons stocker
#les patrons désirés
my $pattern_file="pattern.txt";
open (OUT,">:encoding(utf-8)",$pattern_file);
#Demande à l'utilisateur
print "Donnez des patrons à extraire, un par ligne\n" ;
print "(STOP pour finir)\n";
$ligne="..";
#Jusqu'à ce que la variable $ligne contienne "STOP"…
until ($ligne eq "STOP") {
	#…on demande à l'utilisateur le patron désiré…
	print "Patron (chaque terme séparé par un blanc) : ";
	#…que l'on récupère à la sortie standard
	$ligne=<STDIN>;
	#On enlève le retour à la ligne
	chomp($ligne);
	#Si la variable $ligne contient "STOP"
	if ($ligne ne "STOP") {
		#On écrit les patrons récupérés dans le fichier
		print OUT $ligne,"\n";
		}
	}
#On ferme les tampons
close (OUT);
#On commence l'extraction
print "Extracting…\n";
#On lance le script d'extraction via la commande 'system'
system("perl ./bao3_rb-treetagger.pl Sortie_TreeTagger.xml $pattern_file");