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

Programmation et administration système Perl Discussion :

Processus Système en Perl


Sujet :

Programmation et administration système Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Inscrit en
    Septembre 2006
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 6
    Par défaut Processus Système en Perl
    Bonjour

    je veux récupérer la liste des processus actif sur le système et les enregistrer sur un fichier texte

    est-ce possible ?

    les fonctions a utiliser si c'est possible


    Merci d'avance

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Tu travailles sous quel OS ?
    Sous Win32 : Win32::Process::List
    Sous Linux/Unix : Proc::ProcessTable

  3. #3
    Membre du Club
    Inscrit en
    Septembre 2006
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 6
    Par défaut
    Merci beaucoup pour la réponse

    Je travail sous centOS 5.5 mais je voudrais faire un script qui marche sur les 2 plateforme

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Dans ce cas, dans ton programme, tu testes si tu es sous Windows ou Linux et en fonction du cas, tu fais un require du module à utiliser.

  5. #5
    Membre du Club
    Inscrit en
    Septembre 2006
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 6
    Par défaut
    Bonsoir

    je voudrais afficher les processus dans la liste box mais j'ai des erreurs

    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
     
     
    use Proc::ProcessTable;
     
     
     
     $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
     
     $t = new Proc::ProcessTable;
     
     
    $lb->insert('end' , $FORMAT, "PID", "TTY", "STAT", "START", "COMMAND" );
     
     foreach $p ( @{$t->table} ){
     
       printf($FORMAT, 
     
              $p->pid, 
     
              $p->ttydev, 
     
              $p->state, 
     
              scalar(localtime($p->start)), 
     
              $p->cmndline);
     
     }

    les erreurs


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
     
    Global symbol "$FORMAT" requires explicit package name at projet.pl line 86.
    Global symbol "$t" requires explicit package name at projet.pl line 87.
    Global symbol "$FORMAT" requires explicit package name at projet.pl line 89.
    Global symbol "$p" requires explicit package name at projet.pl line 90.
    Global symbol "$t" requires explicit package name at projet.pl line 90.
    Global symbol "$FORMAT" requires explicit package name at projet.pl line 91.
    Global symbol "$p" requires explicit package name at projet.pl line 92.
    Global symbol "$p" requires explicit package name at projet.pl line 93.
    Global symbol "$p" requires explicit package name at projet.pl line 94.
    Global symbol "$p" requires explicit package name at projet.pl line 95.
    Global symbol "$p" requires explicit package name at projet.pl line 96.
    Global symbol "$FORMAT" requires explicit package name at projet.pl line 99.

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    C'est tout à fait normal, tu ne déclare pas proprement tes variables avec my !

    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
    use Proc::ProcessTable;
     
    my $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
    my $t = new Proc::ProcessTable;
     
    $lb->insert('end' , $FORMAT, "PID", "TTY", "STAT", "START", "COMMAND" ); 
    foreach my $p ( @{$t->table} ) {
      printf( $FORMAT, 
              $p->pid,  
              $p->ttydev,  
              $p->state,  
              scalar(localtime($p->start)),  
              $p->cmndline
      );
    }

Discussions similaires

  1. Réponses: 0
    Dernier message: 30/04/2009, 11h13
  2. capable de détecter l'arrêt accidentel d'un processus système
    Par arnaudperfect dans le forum Shell et commandes GNU
    Réponses: 3
    Dernier message: 10/08/2007, 11h15
  3. Les processus système
    Par arnaudperfect dans le forum Administration système
    Réponses: 6
    Dernier message: 08/08/2007, 13h57
  4. [Système] Exécuter Perl par ssh2
    Par tipsyme dans le forum Langage
    Réponses: 3
    Dernier message: 30/05/2007, 12h00
  5. Exécuter une commande système avec perl
    Par Olivier Regnier dans le forum Langage
    Réponses: 12
    Dernier message: 08/04/2007, 16h41

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