Discussion :

[encarnado]

Bonjour à tous,

Alors voila je vous explique, je doit pour le boulot créer un script Perl pour superviser un serveur Apache or je ne connais pas encore Perl et le script doit être fait rapidement, je recherche donc une âme charitable qui aurait déjà une base de script et qui pourrais me le passer.

Voilà ce dont j'ai besoin :
-faire un script perl qui lance la commande "apachectl fullstatus", parse sa sortie, et récupère les infos suivantes :
-nombre de requêtes par sec
-nombre d'octets par sec
-nombre de workers actifs et idle, calcul du pourcentage de workers occupés
-pourcentage d'utilisation du cache ssl
-état de chaque membre d'un loadbalancer, où OK = 0 et not OK = 1

Merci par avance à ceux qui pourront m'aider.

[encarnado]

J'ai réalisé un petit draft pour donner l'idée générale de ce que je veux faire :

Sachant que pour l'instant je n'arrive pas à voir comment transférer le résultat de ma commande dans un fichier.

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
# Algorithme pour script apache
 
Execute commande "apachectl fullstatus" >> $resultat
 
Open FICHIER ">resultat.txt"
 
print FICHIER "$resultat"
 
Close FICHIER
 
==============================
# Premier test : nombres de requêtes par seconde
 
Open FICHIER "<resultat.txt"
 
Find X "requests/sec"
$X=X
opcmon opcmon MAPOLICY=$X -option requestspsec=$X
 
Close FICHIER
 
==============================
# Deuxième test : nombre d'octets par seconde
 
Open FICHIER "<resultat.txt"
 
Find Y "B/second"
$Y=Y
opcmon MAPOLICY=$Y -option bpsecond=$Y
 
Close FICHIER
 
=============================
# Troisième test : nombre de workers actif et d'idle, et pourcentage de workers occupés
 
Open FICHIER "<resultat.txt"
 
Find W "requests currently being processed," I "idle workers"
$W=W
$I=I
 
$Z=($W*100)/($W+$I)
 
opcmon MAPOLICY=$Z -option pourcentworkersoccupes=$Z -option workersactifs=$W -option idle=$I
 
Close FICHIER
 
=============================
#Quatrième test : pourcentage utilisation cache ssl
 
Open FICHIER "<resultat.txt"
 
Find "cache usage:" V"%"
$V=V
opcmon MAPOLICY=$V -option cacheusage=$V
 
Close FICHIER
 
=============================
#Cinquième test : etats des membres du loadbalancer
 
Open FICHIER "<resultat.txt"
 
Find "ajp" R S
$R=R
$S=S
 
If ($S=OK
	Then $S=1)
else ($S=0)
 
opcmon MAPOLICY=$S -option name=$R -option state=$S
 
Close FICHIER

[Gardyen]

pour capturer la sortie d'une commande, tu peux utiliser les backsticks (cf la)

[encarnado]

Merci du lien je pense qu'il me servira, au final j'ai trouver avec :

Code :

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

1
2
 
my $resultat = `$commande > resultat.txt`;

ça fonctionne maintenant les recherches vont être difficiles, je débute totalement en perl et quasiment en prog.

[Gardyen]

dans cette partie de la faq perl tu as comment parcourir un fichier

ensuite pour tester la chaine et rechercher des valeurs, les expressions régulières te seront utiles, voir les exemples ici

bon courage pour digérer tout cela !

[encarnado]

Merci du coup de main à nouveau.
Ouai dur de tout digéré pour le début. Mais ça va bien finir par rentré.
Je vais regarder les liens que tu m'as donné et essayé jusqu'à ce que ça fonctionne.

Par contre est ce que c'est pareil pour par exemple j'ai :

"66 B/second" sachant que le 66 est un nombre qui peut varier et correspond au nombre que je veux capturer en gros on va dire que j'ai "X B/second" je vas faire ma recherche sur B/second comment je peux faire pour récupéré X et l'affecter à une variable?

Merci.