#!/usr/bin/perl
use strict;
#-------------------------------------------------
# Definition du patron
my @terme=("V","DET","NC");
#-------------------------------------------------
# Ouverture du fichier TALISMANE
open(FIC,"<:encoding(utf8)",$ARGV[0]);
#-------------------------------------------------
# Lecture du fichier TALISMANE
my @BIGLISTE=();
while (my $ligne = <FIC>) {
    $ligne =~s/\r//;
    if ($ligne !~ /^$/) {
        my @petite_liste = split(/\t/, $ligne);
        print "PL : @petite_liste\n";
        push (@BIGLISTE,\@petite_liste); 
        }
    else {
		
        print "ici je peux traiter BIGLISTE\n";
		print "return pour continuer...\n";
		#print "@BIGLISTE\n";
		#print "voici le premier mot de la phrase traitée\n";
		#print "$BIGLISTE[0]->[1]\t";
		#print "$BIGLISTE[0]->[3]\n";
		#print "$BIGLISTE[1]->[1]\t";
		#print "$BIGLISTE[1]->[3]\n";
		#print "$BIGLISTE[2]->[1]\t";
		#print "$BIGLISTE[2]->[3]\n";
		my $compteur=0;
		foreach my $element(@BIGLISTE){
			$compteur++;
			my $countterme=0;
			if ($terme[$countterme] eq $element->[3]){
				print "MATCH : $element->[1] au rang $compteur\n";
				my $chaine="";
				my $extract="";
				for (my $k=$compteur-1;$k<=$compteur+$#terme;$k++){
					print "$BIGLISTE[$k]->[3]\n";
					if ($BIGLISTE[$k]->[3] eq $terme[$countterme++]){
						$chaine=$chaine.$BIGLISTE[$k]->[3];
						$extract=$extract . " " . $BIGLISTE[$k]->[1];
					}
				}
				if ($chaine eq join("",@terme)){print "MATCH COMPLET : rang $element->[3]\n";
				print "$extract\n"
				}
			}
		}
		my $pause=<STDIN>;
		#------- TRAITEMENT DE BIGLISTE A FAIRE
		
		#-------- FIN DE TRAITEMENT DE BIGLISTE
		#-------- On vide BIGLISTE
        @BIGLISTE=();
    }
}
#-------------------------------------------------
close(FIC);