Discussion :

[chris -_-]

Bonjour,

J’espère être dans la bonne partie du forum pour poser ma question.

Voila j'ai fais un script en perl qui me permet de lister des modules suivant 3 tests.
Test 1 si $propertyvalue eq $defaultproperty alors ok
Test 2 si $defaultproperty eq '' alors NOK pas de default propoerties
Test 3 si (($defaultproperty ne $propertyvalue) && ($defaultproperty ne '') && ($propertyvalue ne '')) alors NOK car le module n'a pas de valeur par default.

Script ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# Recupération des valeurs de la requete dans tableau @vdg
while(@vdg = $sth->fetchrow_array()) {
$id=$vdg[0];
$propertykey=$vdg[1];
$propertyvalue=$vdg[2];
$defaultproperty=$vdg[3];
 
if ($propertyvalue eq $defaultproperty){print "OK module $propertykey \n";}
 
if ($defaultproperty eq ''){print "WARNING module $propertykey pas de default propertie\n";}
 
if (($defaultproperty ne $propertyvalue) && ($defaultproperty ne '') && ($propertyvalue ne '')) { print "CRITIQUE module $propertykey n'a pas la valeur par defaut\n";}
 
}

Mon problème est sur la sortie. Actuellement je vais avoir autant de ligne de sortie que de module à checker. J'aimerai n'avoir qu'une seule ligne en sortie avec toutes les infos du genre:

OK pour tout les modules
WARNING module test, test1 pas de default propertie
CRITIQUE module test1, test2 n'a pas la valeur par defaut

Merci pour votre aide.

[Jasmine80]

Si j'ai bien compris le problème, voici ce que je ferais :
1) Avant le while, je créerais 3 arrays, une par test.
2) Je les remplirais au fur et à mesure dans le while.
3) Après le while, j'afficherais les 3 listes.

[Lolo78]

Peut-être un truc simple dans ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my $err_message = "";
if ($propertyvalue eq $defaultproperty){
    $err_message =  "OK module $propertykey \n";
}
if ($defaultproperty eq ''){
    $err_message .= "WARNING module $propertykey pas de default propertie\n";
}
if (($defaultproperty ne $propertyvalue) && ($defaultproperty ne '') && ($propertyvalue ne '')) { 
    $err_message .= "CRITIQUE module $propertykey n'a pas la valeur par defaut\n";
}
 
print $err_message if $err_message; # imprime le message d'erreur s'il n'est pas une chaîne vide
}