#!/usr/bin/perl
use locale; 
print "Nom du fichier de travail: ";
my $file=<STDIN>;
chomp($file);
print "entrez les cinque mots que vous avez choisis :\n";
$mot=<STDIN>;
open(FILEOUT,">occurence.html");
print FILEOUT "<html><body bgcolor=\"black\">\n";
@lesmots  = split(/ /,$mot);

#foreach pour chaque mot.
foreach $pole (@lesmots)
{
print FILEOUT "<p align=\"center\"><font color=\"blue\">Le mot \"$pole\" 
est employé par $#nbinfirmiere infirmières <br/>pour parler de $#nbbebe bébés</font></p> \n";
##############
&comptage;
sub comptage {
open (file, "p96.bal");
#pour compter les nombres de bébés et d'infirmières concernés .
%bebe =(); 
%infirmiere =(); 
while ($ligne = <file>)
{
if ( $ligne =~ /<TXT>.*$pole( |s|\.|,).*<BEBE>([0-9]*).*<INFIRMIERE>([0-9]*)/ )
{ 
$nombbebe = $2; 
$nombinf = $3; 
$bebe{$nombbebe} = $bebe{$nombbebe} +1; 
$infirmiere{$nombinf} = $infirmiere{$nombinf} +1; 
}
}
@nbbebe =();
@nbinfirmiere =();
# liste des clefs.
@nbbebe = keys (%bebe); 
$#nbbebe ++; 
@nbinfirmiere= keys (%infirmiere);
$#nbinfirmiere ++;
close (file);
 }
print FILEOUT "<table align=\"center\" bgcolor=\"white\" border=\"3\">\<tr><td>
<b><font color=\"red\">Fq</font></b></td><td align=\"right\"><b><font color=\"red\">
contexte gauche</font></b></td><td align=\"center\"><b><font color=\"green\">pôle</font>
</b></td><td align=\"left\"><b><font color=\"red\">contexte droit</font></b></td>\n";
#####################""
$i=1;
open (file,"p96.tag");
while (my $ligne=<file>) {
	while($ligne=~/\b$pole\b/gi) {
	my $cg=$`;
	my $p=$&;
	my $cd=$';
	if (($cg eq "") || ($cg=~/^[ ]+$/)) {$cg="&nbsp;"};
	if (($cd eq "") || ($cd=~/^[ ]*$/)) {$cd="&nbsp;"};
	$i++;
	print FILEOUT "<tr><td>$i</td><td align=\"right\">$cg</td><td align=\"center\">&nbsp;$p&nbsp;</td>
	<td align=\"left\">$cd</td></tr>\n";
#emploi avec un verbe
if ($cg =~ /[a-z]\/V/)

{print FILEOUT "<tr><td>emploi avec un verbe</td><td> oui</td></tr>";}
else { print FILEOUT "<tr><td>emploi avec un verbe</td><td> non </td></tr>";}

#emploi  singulier ou  pluriel
if (($cg =~/(DETFS|DETMS|NMS|NFS)/)or ($cd =~/(DETFS|DETMS|NMS|NFS)/))
{print FILEOUT "<tr><td>genre </td><td> singulier </td></tr>";}
else {print FILEOUT "<tr><td>genre </td><td> pluriel </td></tr>";}

#contexte positif ou négatif
if (($cg =~ /(pas|peu|aucun|sans|non|n')/) or ($cd =~ / (pas)/ ))
{print FILEOUT "<tr><td>contexte</td><td>négatif</td></tr>";}
else {print FILEOUT "<tr><td>contexte</td><td>positif</td></tr>" ;}
    }
}
print FILEOUT "</table></body></html>\n";
}
close(FILEOUT);



