open(FILE,"$ARGV[0]"); open (FILEOUT, ">extractNOMPREPNOM-TreeTagger.txt"); #-------------------------------------------- # le patron cherché ici est du type NOM PREP NOM; #-------------------------------------------- my @lignes=; close(FILE); while (@lignes) { my $ligne=shift(@lignes); chomp $ligne; my $sequence=""; my $longueur=0; if ( $ligne =~ /NOM<\/data>[^<]+<\/data>([^<]+)<\/data><\/element>/) { my $forme=$1; $sequence.=$forme; $longueur=1; my $nextligne=$lignes[0]; if ( $nextligne =~ /PRP<\/data>[^<]+<\/data>([^<]+)<\/data><\/element>/) { my $forme=$1; $sequence.=" ".$forme; $longueur=2; my $nextligne=$lignes[1]; if ( $nextligne =~ /NOM<\/data>[^<]+<\/data>([^<]+)<\/data><\/element>/) { my $forme=$1; $sequence.=" ".$forme; $longueur=3; } } } if ($longueur == 3) { print FILEOUT $sequence,"\n"; } } close (FILEOUT);