Discussion :

[Marty000]

Bonjour,
voilà j'ai un petit soucis, enfin meme un gros soucis, j'ai à développer une appli qui affiche des alarmes. Je récupère ces alarmes d'un module C qui me les transmet de telle menière : nom1;info1.1;info1.2;info1.3...;info1.39\nnom2;info2.1;info2.2;info2.3;...;info2.39

Donc je récupère une chaine qui contient toutes les alarmes, et il y a 39 info par alarmes... Et il peut y avoir jusqu'à 5000 alarmes !

Sachant que j'ai à les dispatcher selon différentes conditions, genre si tu as une info35 égale à "coucou" je te récupère sinon je ne te prends pas, et bien je mets pas loin de 23 sec à tout charger pour afficher la page, sachant que mon perl génère du Javascript. Pour récupérer les données je mets 2 sec, c'est le découpage qui prend du temps et les comparaisons.

Je ne peux malheureusement pas vous mettre le code. Mais si vous aviez une idée pour optimiser tout ça une opinion? Genre pour mieux découper, à l'heure actuelle j'utilise un split pour déocuper en fonction des "\n" pour récupérer une alarme, puis un nouveau split en fonction des ";" pour récupérer les infos une à une, mais peut être y a t il mieux?

Je vous remercie.

[Arioch]

Bonjour,

cela aurait été bien si tu nous mettais juste la portion de ton code qui fait les splits, que l'on voit comment sont tes regexps et ce qu'elles font.

Vu que c'est ça qui prend trop de temps dans ton traitement, y a probablement matière à l'optimiser mais voir l'existant donnerait déjà une bonne piste

[Marty000]

Déjà merci de m'aider !

Bon et bien voici à quoi cela ressemble :

Code :

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

1
2
3
4
5
6
7
 
#Voici comment je découpeles alarmes
@alarmes = split("\n",$recuperationAlarmes);
 
#Maintenant je vérifie les alarmes une à une	
foreach $ligne (@alarmes) {
  if ($ligne !~ m/OK/){

Donc voilà, ce genre de if est répété neuf fois, sachant qu'il y a un peu plus de choses, mais ce n'est rien du tout, juste quelques = ou ==. Donc voilà, merci de votre aide!

[Arioch]

En partant du principe que dans ton fichier, il y a 1 ligne ne contenant des infos QUE pour UNE SEULE alarme et que l'identification de cette alarme est la 1ère info de la ligne, je procéderais bien par un hash dont chaque clé serait une alarme et toutes ses infos rangées dans une liste.

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
 
use strict;
 
... ... ...
 
my %Alarme;
 
open(ALARM, "Fichier_Alarmes") or die ("Lecture fichier alarme erreur : $!\n");
while(<ALARM>)
{
    if ($_ !~ /OK/)
    {
        chomp();
        @_ = split(/;/, $_);
        my $nb = scalar(@_);
        @{$Alarm{$_[0]}} = ($_[1] .. $_[$nb-1]);
    }
}
close(ALARM);
 
# chaque clé du hash %Alarm = 1 alarme
# Critères de tes boucles if
foreach(sort { $a <=> $b}(keys %Alarme))
{
    if ($_ >= 1 && $Alarme{$_}[0] != 5000)
    {
        ... ... ...
    }
    ... ... ...
}

Maintenant, tu peux aussi gagner du temps (certainement même) si tu n'es intéressé que par certaines alarmes et pas toutes les alarmes. Dans ce cas, au moment même où tu topes une ligne de ton fichier, tu ne charges la ligne que si et seulement si le n° de l'alarme correspond aux numéros qui t'intéressent.

[Marty000]

Le truc c'est que je ne récupère pas les alarmes d'un fichier, mais d'une application qui m'envoie le tout sous forme d'une seule chaîne de caractères, que je split après.

Et dans les boucles "if" c'est ce que je fais pour ta deuxième solution, je vérifie qu'elle correspond et sinon je la balance, le truc c'est que chaque alarme doit passer dans les 9 "if", car une alarme peut se retrouver dans plusieurs tableaux...

Merci en tout cas.