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
et c'est justement le probleme etant donné que l'ago fait
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 my @stat = ( "$word", "$occurence{$word}", "$densite"); return @stat;
, je ne reçoit pas tt les données mais seulement l'évaluation d'un seul motforeach my $word(keys(%occurence)){![]()
![]()
![]()
![]()
.
Auriez vous une idée pour que l'algo me renvoie bien toutes les données ? merci
Partager