Salut

J'ai un problème avec mon algo de calcul de densité (de mots)

Voici mon code qui marche pas


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!C:/Perl/bin/perl.exe -w
 
 
my $keywords = $head{keywords};
 
my $code_page_data = $code{$code_page};
 
  if ($keywords =~ /,/g)
  {
    my @keywords = split/,/, $keywords;
  }
  else {
 
    my @keywords = split/, /, $keywords;
 
  }
 
  @keywords = evaluate(@keywords);
 
  #------------------------------------------#
  #               Evaluation                 #
  #------------------------------------------#
 sub evaluate
 {
 for $eval(@_) {
 my $code_page_do = $code_page_data;
  my $mot = "$eval";
   my $chaine = $code_page_do;
    my $count = 0;
    while ($chaine =~ /$mot/isg) { $count++ }
    my @cmp = split/ /, $eval;
   my $count_chaine = $#cmp + 1;
   my $percent = $mot * $count_chaine / 100;
  return $percent;
  }
}
en fait je voudrais faire un algo qui puisse calculer la densité et le nombre d'occurence des mots d'un fichier comme sa


%occ = (

maison_density => "40%";

maison_occurence => "30";


);
en clair associer chaque mot de mon documant avec sont nombre d'occurence et sa densité dan le document en question.

Merci d'avance