#! /usr/bin/perl

#####################################################################
# Auteur: Zahir MAAFA
# Date: 22 mai 2006
# Description: prend en entrée un fichier  etiqueté par COrdial et le nom du fichier de sortie.  
#Le fichier de sortie est composé de fenêtres et contient sur chaque ligne:
#
# lemme_categorie 
#################################################################

my $ligne;
@ARGV == 2 or die "usage: prog <infile> <outfile> ";
$infile = $ARGV[0];
$outfile = $ARGV[1];
$i=0;
open(INFILE,"<$infile");
open(OUTFILE,">$outfile");
while (<INFILE>){
        
        
            split /\t/;
           $i++;
           chop($_[2]);
           $_[2]=~s/[\r\n]//;
        
         
           $_[2]=~s/\s//g;


          $_[2]=~s/^V.*/V/;          #cas des verbes

          $_[2]=~s/^N(.).*/N$1/;     #cas des noms

          $_[2]=~s/^ADJ.*/A/;        # cas des adjectifs

          $_[2]=~s/^PC.*/Y/;         #cas des ponctuations

          $_[2]=~s/PREP/S/;          #cas des prepositions

          $_[2]=~s/^DET.*/D/;         #cas des determinants

          $_[2]=~s/^ADV.*/R/;        #cas des adverbes
	  $_[2]=~s/^C.*/c/;          # et des conjonctions...
        
           
         print OUTFILE   "$_[1]_$_[2]\n";
      if (( $i % 100)==0) {print OUTFILE   "<FinFenetre/>\n";}
        
        

}
if (( $i % 100)!=0) {print OUTFILE   "<FinFenetre/>\n";}

close(INFILE);
close(OUTFILE);