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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
my @stat = ( "$word", "$occurence{$word}", "$densite");
return @stat;
et c'est justement le probleme etant donné que l'ago fait

foreach my $word(keys(%occurence)){
, je ne reçoit pas tt les données mais seulement l'évaluation d'un seul mot .

Auriez vous une idée pour que l'algo me renvoie bien toutes les données ? merci