IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web Perl Discussion :

Perl et apache


Sujet :

Web Perl

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur Systèmes Réseaux et Supervision
    Inscrit en
    Octobre 2012
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Systèmes Réseaux et Supervision

    Informations forums :
    Inscription : Octobre 2012
    Messages : 19
    Points : 8
    Points
    8
    Par défaut Perl et apache
    Bonjour,

    J'avais déjà poster ici pour quelques soucis de perl pour superviser apache depuis j'ai bien avancer mais il me reste un soucis alors voila j'ai une sortie de commande qui me donne :

    --------------------------------------------------------------------------

    Proxy LoadBalancer Status for balancer://xx-xxxxxx-xxxxxxx

    SSes Timeout Method
    - 10 bybusyness

    Sch Host Stat Route Redir F Set Acc Wr Rd
    ajp hostname Init Ok 1 0 6422 862K 29M

    --------------------------------------------------------------------------

    Proxy LoadBalancer Status for balancer://xx-xxx-xxxxxxx
    SSes Timeout Method
    - 10 bybusyness

    Sch Host Stat Route Redir F Set Acc Wr Rd
    http hostname Init Ok 1 0 0 0 0

    --------------------------------------------------------------------------

    Mon but est de récupérer différents éléments des différents blocs (un bloc situé entre les ----). Ces éléments sont en gras.
    Le problème il peut y avoir plusieurs lignes dans la liste avec hostname et status qu'il faut récupérer, sur cette ligne aucun élément ne peut être considérer comme étant présent à chaque fois.

    Je bloque donc pour faire une boucle qui donnerait tant que j'analyse une ligne pour xx-xxxxxx-xxxxx je reste dans ce bloc, d'une fois que j'ai toutes les lignes je passe au bloc suivant.

    Voila mon morceau de code pour ça où j'en suis :

    sub verif_lb_status {

    my @resultat = qx/apachectl fullstatus 2>\/dev\/null/;

    # Si la commande à réussie
    if (@resultat > 0) {

    # Pour chaque ligne
    foreach (@resultat) {

    # Parsing de la ligne (pattern cherchée : définition du balancer sous format xx-xxxxxx-xxxxxxx)
    $_ =~ /Proxy\s+LoadBalancer\s+Status\s+for\s+balancer:\/\/(\w)\n/ ;
    my $balancer = $1

    # Parsing de la ligne (pattern cherchée : )
    $=~ /\s+\w\s+(\w[^Host])\s+\w\s+(\w[^Stat])\s+\w\s+\w\s+\w\s+\w\s+\w\s+\w\s+\w\n/

    # Si la ligne match
    if (defined $1 && $1 ne '' && defined $2 && $2 ne '') {
    my $load_balancer_hostname = $1;
    my $load_balancer_status = $2;
    if ($load_balancer_status eq "OK") {
    $load_balancer_status = 1;
    } else {
    $load_balancer_status = 0;
    }

    # Ligne de commande pour ovo (format: opcmon "nom_policy"=etat_load_balancer)
    my $cmd = 'opcmon "' . Opts::get_option($OPT_POLICY) . '"=' . $load_balancer_status ' -object "' . 'load_balancer_hostname' .' -option balancer="' . $balancer . ' -option load_balancer_hostname="' . $load_balancer_hostname . '" -option load_balancer_status="' . $load_balancer_status . '"';

    # Si debug
    Utils::trace(1, $cmd . "\n");

    # Envoi du résultat à ovo via opcmon
    system($cmd);

    last;
    }
    }
    }
    }


    Aidez moi, si il faut quelques précisions je suis la.

    Merci.

  2. #2
    Membre du Club
    Homme Profil pro
    Inscrit en
    Mars 2010
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Mars 2010
    Messages : 84
    Points : 66
    Points
    66
    Par défaut
    Salut encarnado,
    C'est plus lisible si tu utilises la balise [ CODE ] pour ton code informatique et l'indentation ça peut être pratique.

Discussions similaires

  1. [web] [debutant]perl sur apache & win32
    Par HeLLSoNG dans le forum Programmation et administration système
    Réponses: 17
    Dernier message: 14/12/2006, 00h47
  2. Perl et Apache ?
    Par macisa dans le forum Web
    Réponses: 1
    Dernier message: 17/10/2006, 03h35
  3. Réponses: 3
    Dernier message: 01/06/2004, 10h44
  4. Réponses: 2
    Dernier message: 13/05/2004, 22h53
  5. [web] Perl et apache
    Par Laurent M dans le forum Web
    Réponses: 7
    Dernier message: 13/02/2004, 11h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo