#!/usr/bin/perl
# Programme d'extraction de patron
# sur sortie Cordial
# Usage : perl pg.pl cordialFile patrons
#----------------------------------
open(FIC,"<:encoding(utf8)",$ARGV[0]) or die $!;
my $chaine="";
while (my $ligne=<FIC>) {
    # je veux voir la POS et le TOKEN
    # sous cette forme : POS_FORME
    chomp $ligne; # inutile a priori...
    if (($ligne=~/^(.+)\t.+\t(.+)$/) and ($ligne!~/PCTFORTE/)) {   
        my $f=$1;
        my $c=$2;
	$f=~s/ /#/g;
        $chaine = $chaine . $c."_".$f." ";
    }else {
        #print $chaine;
        #$continu=<STDIN>;
        open(TERM,"<:encoding(utf8)", $ARGV[1]);
        while (my $terme=<TERM>) {
		chomp($terme);
		$terme=~s/([A-Z]+)/$1_[^ ]+/g;
		while ($chaine =~ /$terme/g){
			my $corp = $&;
			$corp =~ s/[A-Z]+_//g;
			$corp =~ s/#/ /g;
			print "$corp\n";
		}
            #comment transformer : NOM ADJ
            #en                  :  NOM_([^ ]+) ADJ_([^ ]+)
            # pour ensuite cherche $terme dans $chaine
        }
        #--------------------------------
        # a la fin
        $chaine="";
    }
}
#print $chaine;
close(FIC);
close TERM;
