Prozessstatus abfragen (Seite 2) (Allgemeines zu Perl)

[thread]6356[/thread]

Prozessstatus abfragen (Seite 2)

Rambo

2004-06-23 16:39

User since
2003-08-14
803 Artikel
BenutzerIn

user image

@crian, wie wärs denn mit der ampel schaltung etwas ab
geändert?
fürti rambo

Crian

2004-06-24 02:50

User since
2003-08-04
5873 Artikel
ModeratorIn

Ja stimmt, die könnte man dafür wohl auch verwenden...

@BungeeBug: Wenn Du eine nette Perl/Tk-Oberfläche dafür suchst, schau Dir doch mal das Tool auf meiner Perlseite
an.

Hier ein Bild von dem Tool im Einsatz:

http://www.duehl.de/christian/perl/module/port_che...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

BungeeBug

2004-06-24 10:54

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

[quote=coax,23.06.2004, 02:44]

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my %PROCS = (
               httpd => 'Apache Webserver',
               mysqld => 'MySQL Server',
               dummy => 'nicht existierender Prozess',
             );

my %STATE = (
              S => 'am schlafen',
              R => 'am laufen',
              T => 'angehalten',
              Z => 'Zombie',
              D => 'im Koma'
             );

my @messages;
#my @found;

my $pattern =  '^(\w).+(' . join('|' => keys %PROCS) . ')';

open(PS, 'ps -A -o stat,cmd |') or die $!;

<PS>;

while(<PS>){
    if(/$pattern/) {
        push(@messages, sprintf("%s ist %s", $PROCS{$2}, $STATE{$1}));
#        push(@found, $2);
    }
}

close(PS);

print "$_\n" for @messages;

#delete @PROCS{@found};
#print "-" x 30,"\n";
#print "Prozess $_ nicht gefunden!\n" for keys %PROCS;

Wenn du die auskommentierten Anweisungen jetzt noch entkommentierst werden dir auch die Prozesse angezeigt die in der Prozesstabelle nicht gefunden wurden.

Viel Spasz damit :)[/quote]
Moin,

soweit sogut. Nur scheit mein Perl ein Problem mit dem Ü zuhaben ( Zeile 37 mein ich ). Leider hab ich nicht den nötichen Durchblick um das Problem selbst in die Hand zu nehmen.

Zu dem GUI, das ganze soll später mal als CRON Script auf meinem Server laufen und mich per email und sms benachtigtigen wenn was kaputt ist. Die GUI müsst also per Netzwerk die Daten abfragen, was meiner Meinung nach vorerist ein Risiko [ Sicherheit ] ist. Trotzdem finde ich die Idee überlegenswert :)

Bearbeitet von Crian: Perl-Tags -> Code-Tags\n\n

MfG
BungeeBug

coax

2004-06-24 12:53

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

So.. Posting geaendert, die Zeichen waren $1, $2 (die Ergebnisse des RegExp), das perl-BoardTag hat
mit den Code Probleme, mit'm code-Tag geht's.
Hab den Code aus'm puTTY kopiert, da ich anders kein Linux zur Hand hatte. ;)

,,Das perlt aber heute wieder...'' -- Dittsche

[E|B]

2004-06-24 22:57

User since
2003-08-08
2561 Artikel
HausmeisterIn

Ja, ja, hackt nur auf mir rum. ;)
Das "-" muss sich da heimlich eingeschlichen haben. Ich meine natürlich ohne. :)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Crian

2004-06-27 05:04

User since
2003-08-04
5873 Artikel
ModeratorIn

keine Panik, es geht glaube ich auch mit, oder ging jedenfalls eine Weile lang noch =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

BungeeBug

2004-06-27 13:18

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

Es funktioniert so wie es da steht. Nach ein paar kleinen Erweiterungen macht das Script jetzt genau das was ich will :) Naja fast. Alle Prozesse, die man überwacht, die aber nicht laufen werden als Schlafend aufgelistet. Aber das werde ich ihm auch noch austreiben!

MfG
BungeeBug

View all threads created 2004-06-22 20:50.