#!usr/bin/perl
open my $FILE, "<:encoding(utf-8)", $ARGV[0]  ;
open my $OUT, ">:encoding(utf-8)", "nom_prep_nom.txt" or die "Couldn't open: $!";
#-------------------------------------------------#
# le patron cherché ici est du type NOM PREP NOM  #
#-------------------------------------------------#
my @lignes=<$FILE>;
close $FILE;
while (my $ligne=shift(@lignes)) {
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
		my $forme=$1;
		$sequence.=$forme;
		$longueur=1;
		my $nextligne=$lignes[0];
		if ( $nextligne =~ /<element><data type=\"type\">PRP<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
			my $forme=$1;
			$sequence.=" ".$forme;
			$longueur=2;
			my $next_nextligne=$lignes[1];
			if ( $next_nextligne =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
				my $forme=$1;
				$sequence.=" ".$forme;
				$longueur=3;
			}
		}
	}
    if ($longueur == 3) {
	print $OUT "$sequence\n";
    }
}

close $OUT;
exit;