#!/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__modifTd.pl Sortie_TreeTagger.xml $pattern_file");