open(FILE,"$ARGV[0]");
open(TXT,">:encoding(utf-8)","patrons_cordial_NOM_PREP_NOM.txt");

#--------------------------------------------
# le patron cherché ici est du type NOM ADJ";
# le modifier pour extraire NOM PREP NOM
#--------------------------------------------
my @lignes=<FILE>;
close(FILE);
my %dicopatron=();
while (my $ligne=shift(@lignes)) {
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /^([^\t]+)\t[^\t]+\tNC.*/) {
		my $forme=$1;
		$sequence.=$forme;
		$longueur=1;
		
		my $nextligne=$lignes[0];
		if ( $nextligne =~ /^([^\t]+)\t[^\t ]+\tPREP/) {
			my $forme=$1;
			$sequence.=" ".$forme;
			$longueur=2;
			print $nextligne, "\n";
			print $forme, "\n";
			
			my $secondline = $lignes[1];
			if ( $secondline =~ /^([^\t]+)\t[^\t]+\tNC.*/) {
				my $forme=$1;
				$sequence.=" ".$forme;
				$longueur=3;
			}
		}
		
    }
    if ($longueur == 3) {
		$dicopatron{$sequence}++;
    }
}
foreach my $patron (sort {$dicopatron{$b} <=> $dicopatron{$a}} (keys %dicopatron)) {
	print TXT "$patron : $dicopatron{$patron}\n";
}

close FILE;
close TXT;
