Probleme avec un algorithme
Bonjour , j'ai un algorithme qui fonctionne très bien mais a un défaut , ce n'en est pas vraiment uns c'est juste que j'aimerais en modifier le fonctionnement mais je n'y arrive pas :?
Voici l'algo
Code:
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 37 38 39 40 41 42 43 44
|
#!/usr/bin/perl -w
use strict;
use Carp;
use LWP::Simple;
sub calcul_occurence(){
my %occur = ();
my $tablo = $_[0];
foreach my $word (@$tablo){
if (! $occur{$word}){
$occur{$word} = 1;
}
else {
$occur{$word}++;
}
}
return %occur;
}
sub pomper
{
for my $URL( @_ ) {
my $c = get($URL);
return $c;
}
}
####################MAIN#########################
my @liste_de_fichier = ("http://www.aol.com");
my $text = pomper(@liste_de_fichier);
#On splitte avec les espaces
my @tablo = split/\s/,$text;
my %occurence = &calcul_occurence(\@tablo);
print "Rapport des occurences et de la densité de $ARGV[0]\n\n";
foreach my $word(keys(%occurence)){
my $densite = ($occurence{$word}*100)/$#tablo+1;
print "$word apparaît $occurence{$word} fois et sa densité est $densite%.\n";
} |
dans mon programme je renvoie les données dans un tableau
Code:
1 2
| my @stat = ( "$word", "$occurence{$word}", "$densite");
return @stat; |
et c'est justement le probleme etant donné que l'ago fait
Citation:
foreach my $word(keys(%occurence)){
, je ne reçoit pas tt les données mais seulement l'évaluation d'un seul mot :? :evil: :twisted: 8O :cry: .
Auriez vous une idée pour que l'algo me renvoie bien toutes les données ? merci