#!/usr/bin/perl
#  FaitIndexDeFenetres.pl

$ChaineUsage = "Usage : FaitIndexDeFenetres.pl <fichier avec un séparateur de fenêtre et un item par ligne>\n" ; 
if (@ARGV != 1) {die $ChaineUsage ; }  
$FichierEntree   = $ARGV[0] ;  
%Token2Frequence = () ;
$PourWindows = 1 ;
if ($PourWindows == 0) {
  $FinLigne     = "\n" ; 
}
else {
  $FinLigne     = "\r\n" ; 
}
$FinFenetre      = "<FinFenetre/>$FinLigne" ;

open(ENTREE, $FichierEntree) ;  
while ($Ligne = <ENTREE>){
   #print STDERR " >>>>>>>>>  $Ligne \n";
  if ($Ligne eq $FinFenetre) {
  }
  else {
    # On enlève le \n
    chomp($Ligne) ;
    if ($PourWindows == 1) {
      #chop($Ligne) ; 
    }
    $Token2Frequence{$Ligne}++ ;
  }
}
close(ENTREE) ;

imprimeEnTete() ;
foreach $Token (keys %Token2Frequence) {
  print "<t c=\"$Token\" f=\"$Token2Frequence{$Token}\"/>$FinLigne" ;
}
imprimeEnPied() ;

sub imprimeEnTete{
  print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>$FinLigne<index>
" ; 
}

sub imprimeEnPied{
  print "</index>$FinLigne" ;
}
