Discussion :

[benji1000]

Bonjour,

je possède un fichier (ou un tableau Perl) structuré comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
2011,02,1,0
annee,mois,connections au serveur 1,connections au serveur 2

Je souhaite réaliser une page HTML avec un tableau permettant d'afficher le total des connections par mois et par serveur. Comme ceci :

Mois Serveur 1 Serveur 2
Janvier 2011 56 220
Février 2011 146 73

Je pense qu'il faut passer par l'auto-vivification, mais j'ai encore du mal avec ce principe qui est assez compliqué. Pourriez-vous m'aider ? Merci d'avance !

[Dimitry.e]

Qu'entends-tu par auto-vivication, dans ton cas ?

[benji1000]

Je crois que c'est avec toi que j'en avais discuté sur le SdZ pour un autre cas ^^ en fait le terme exact serait sans doute "table de hashage". Enfin, dans ma tête, la difficulté réside dans le fait que le tableau comporte plusieurs clés d'entrées (mois/année à combiner, et le serveur).

[Dimitry.e]

D'accord.
Donc, en fait, tu veux additionner toutes les connexions à chacun de tes serveurs en fonction de la date, c'est ça ?

Le cas échéant, il te suffit de créer deux table de hachage (une par serveur).
Pour chaque ligne de ton fichier, tu utilises l'année et le mois pour en définir une clé unique et tu ajoutes le nombre de connexions.

En gros, tu auras un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while( $line = <F> ) {
  my ( $year, $month, $serv1, $serv2 ) = split( ",", $line );
  $h_serv1{ $year.$month } += $serv1; #auto-vivication
  $h_serv2{ $year.$month } += $serv2;
}

L'auto-vivication est la faculté des tableaux associatifs à créer automagiquement une entrée quand tu tente d'accéder en écriture à une clé qui n'existe pas.

[benji1000]

Je comprends un peu mieux, là. Faut dire que ce cas est plus simple que celui que j'avais eu à traiter avant ! Néanmoins, j'ai du mal à afficher les résultats...

J'ai fait des essais en mettant cette ligne dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $year.$month," - ",$h_serv1{ $year.$month },"\n";

Bien entendu, ça m'affiche la progression du remplissage du tableau... Mais quand on la met à l'extérieur de la boucle, il me dit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Global symbol "$year" requires explicit package name at...
Global symbol "$month" requires explicit package name at...

Je pense qu'il faut une boucle foreach pour parcourir toutes les clés, mais je n'arrive pas à la mettre en oeuvre sans avoir ces erreurs de variables non déclarées.

[hauru]

Le problème doit venir du fait que tu déclare tes variables $year.$month au sein d'une boucle (foreach,while,...).

Si une variable est déclarée dans une boucle, elle n'existe que dans celle-ci, ce qui explique ton erreur.

ps: Il y a aussi des erreurs dans ton print (il faut mettre "."et non "," pour separer tes variables).