#--------------------------------------dictionnaire--------------------------------------------------------------------------

sub makedico {
    my $texte=shift;
    my @dico=split(/\W+/,$texte);
    my %dico2=();
    $dicodesformes->delete(0,'end');
    foreach my $a (@dico) {
	if (exists($dico2{$a})) {
	    $dico2{$a}++;
	}
	else {
	    $dico2{$a}=1;
	}

    }
    my $nombredemots=0;
    my $freqmax=0;
    my $formemax="";
    foreach my $mot (keys %dico2) {
	$dicodesformes->insert('end',[$mot , $dico2{$mot}]);
	$nombredemots++;
	if ($dico2{$mot}>$freqmax) {$freqmax=$dico2{$mot};$formemax=$mot};
    }
    my $titrerapport="Rapport sur texte : \n";
    $editorrapport->insert("end",$titrerapport);
    $editorrapport->insert("end","Nombre de mot : $nombredemots \n");
    $editorrapport->insert("end","Freq Max : $freqmax \n");
    $editorrapport->insert("end","Forme Max : $formemax \n");

}