#!/usr/bin/perl
# ici par exemple pour la rubrique 3208 (une), le patron NOM ADJ 
# usage: perl BAO3.pl sortie-udpipe-3208.txt NOUN ADJ > Resultat_NOM_ADJ.txt

my @terme= @ARGV;
shift @terme;
open(FIC, "<:encoding(UTF-8)", $ARGV[0]);
my @BIGLISTE=();
    while( my $ligne = <FIC> ) {
        $ligne =~s /\r// ;      # =~s est substituer
        if ($ligne !~ /^$/){     # !~ : signifie ne contient pas
            my @petite_liste = split(/\t/,$ligne);
            push (@BIGLISTE, \@petite_liste);
            } 
        else {
            my $compteur = 0;
            foreach my $element(@BIGLISTE){
                my $countterm = 0;
                if($terme[0] eq $element->[3]){ #déréférencer
                    #print "MATCH de $element->[1] au rang $compteur .\n";
                    my $chaine=""; 
                    my $extract="";
                    for (my$k=$compteur;$k<=$compteur+$#terme;$k++){
                        #print "$BIGLISTE[$k]->[3]\n";
                        if ($BIGLISTE[$k]->[3] eq $terme[$countterm++]){
                            $chaine=$chaine.$BIGLISTE[$k]->[3];
                            $extract=$extract." ".$BIGLISTE[$k]->[1]
                        }
                    }
                    if($chaine eq join("",@terme)){
                    #print "MATCH COMPLET : $BIGLISTE[$k]->[3]\n";
                    print "$extract\n";
                    }
                }
            $compteur++ ;
            }
            @BIGLISTE=();
            }    
        }
