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;
}
} |
Partager