open(FILE,"$ARGV[0]");
use locale;
open(FILE,"$ARGV[0]");
my $output="sortie.html";
open(FILEOUT,">",$output);
print FILEOUT "<html><head>
<title>Extraction NOM NOM</title>
</head><body style=\"background-color:black; font-size:14\">
<center>
<h2 style=\"color:yellow;\">Extraction NOM ADJ</h2>
<table>"; 
my @lignes=<FILE>;
close(FILE);
while (@lignes) {
    my $ligne=shift(@lignes);
    chomp $ligne;
     my $sequence1="";
	my $sequence2="";
    my $longueur=0;
    if ( $ligne =~ /^([^\t]+)\t[^\t]+\tNC.*/) { #recherche tous les noms
	 my $forme=$1; #r�cup�re les formes des noms
	 $sequence1.=$forme;
	 $longueur=1;
	 my $nextligne=$lignes[0];
	 if ( $nextligne =~ /^([^\t]+)\t[^\t]+\tADJ.*/) {
	     my $forme=$1;
	     $sequence2.=" ".$forme;
	     $longueur=2;
	 }
    }
    if ($longueur == 2) { #test: est-ce q j'ai r�ussi � construire une s�q nom adj ?
	print FILEOUT "<tr><td style=\"color:brown;\">".$sequence1."</td><td style=\"color:blue;\">".$sequence2."</td></tr>","\n";
    }
}
print FILEOUT "</table></center></body></html>";
close (FILEOUT);


