Bonjour à tous,
 
Alors voila mon problème, je doit faire un script pour le monitorage d'un serveur apache.
Je fait exécuter à mon script la commande "apachectl fullstatus" enregistre la sortie dans un fichier txt jusque la tout va bien. Le problème est après je doit parser ce fichier et récupérer des données et les affectés à des variables.
 
Voila ce que j'ai besoin de récupérer :
 
.0435 requests/sec - 66 B/second
 
1 requests currently being processed, 49 idle workers
 
index usage: 0%, cache usage: 0%
 
ajp hostname Init Ok 1 0 0 0 0
 
En gras les valeurs que je doit récupérer (qui bien sur ne sont pas toujours les mêmes).
 
Niveau code j'avais commencer un petit truc mais j'ai des doutes pour la recherche. Voila mon code pour le début :
 
#!C:\Perl\bin -w
 
 
# ========================================
# Execution de la commande et enregistrement du resultat dans un fichier
 
my $commande = "apachectl fullstatus";
my $resultat = '$commande > resultat.txt';
print $resultat;
close "resultat.txt";
 
my $file = "resultat.txt";
open FICHIER,"<$file";
 
# ========================================
# Recherche du nombres de requêtes par seconde
 
my $substring = "requests/sec";
my $reqpsec;
while ($_ = <FILE> ){
if ( $_ =~ /\s(\d+\s$substring)/ )
{
$reqpsec == $1;
}
print $reqpsec;
}
 
pour l'instant je n'en suis qu'au premier paramètre.
 
Merci de votre aide.

j'connais pas bien perl sous windows, mais j'crois que c'est pas bon cette ligne... enfin, ca n'empechera pas le script de fonctionner...
 

j'espere que ce sont des apostrophes inversees, sinon, ca n'executera pas la commande.
 

ce n'est pas comme ca qu'on ferme un fichier. de plus, tu n'as pas a fermer les fichiers que tu n'as pas toi-meme ouvert. l'execution de la $commande s'est deja occupe de la fermeture de ce fichier.
 

tu ouvres un fichier avec l'identifiant FICHIER et tu lis avec l'identifiant FILE ?
 

par rapport a ton exemple (.0435 requests/sec), ca ne fonctionnera pas. dans ton exemple, il n'y a pas de blanc \s avant les chiffres. il y a un point.
 

pour faire une affectation, il ne faut qu'un seul signe =

J'aurais été directement été lire le statut sur le serveur Apache (il semble clair que vous pouvez vous octroyer les droits pour lire le statut directement), en ce qui me concerne.

#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::Simple;
 
my $status_page = 'http://www.apache.org/server-status'; # mettre celle de votre serveur
my $content = get($status_page);
die "Page de statut inaccessible!" unless defined $content;
 
my ($v1, $v2, $v3, $v4);  # mettre des noms de variable significatifs
foreach (split /^/, $content) {
  if (/(\d+)\s+requests\/sec\s+-\s+(\d+\.\d+)\s+(M|k)?B\/second/) {
   ($v1, $v2) = ($1, $2); # equivaut a $v1 = $1; $v2 = $2;
  }
  if (/(\d+)\s+requests\s+currently\s+being\s+processed,\s+(\d+)\s+idle\s+workers/) {
   ($v3, $v4) = ($1, $2);
  }
  # adapter pour le reste de vos recherches
}
 
#on peut maintenant utiliser les données trouvées:
print "La variable v2 vaut: ", $v2, "\n";
 
#etc

 
A+,