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.