Salut
J'ai un problème avec mon algo de calcul de densité (de mots)
Voici mon code qui marche pas![]()
en fait je voudrais faire un algo qui puisse calculer la densité et le nombre d'occurence des mots d'un fichier comme sa
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 clair associer chaque mot de mon documant avec sont nombre d'occurence et sa densité dan le document en question.%occ = (
maison_density => "40%";
maison_occurence => "30";
);
Merci d'avance
Partager