Re: monitor process

We generally used to check a process is alive by some methods.

on *nix systems
'top' command or ps command output
kill -0 pid
heart beats, this method will check the process is functional apart from alive status, heart beats are simple messages(usually program name+timestamp) will be sent to heart beat monitoring(hbm) server through socket, and the duty of the hbm server is to restart that process if no heart beats received for a configured amount of time.
hope this helps

Vivek
-- In accordance with the prarabdha of each, the One whose function it is to ordain makes each to act. What will not happen will never happen, whatever effort one may put forth. And what will happen will not fail to happen, however much one may seek to prevent it. This is certain. The part of wisdom therefore is to stay quiet.

Comment on Re: monitor process

Replies are listed 'Best First'.

Re^2: monitor process
by grashoper (Monk) on Apr 24, 2009 at 15:14 UTC

use Win32::Process::Info;
use Data::Dumper;
 $pi = Win32::Process::Info->new ();
 $pi->Set (elapsed_in_seconds => 0);    # In clunks, not seconds.
 @pids = $pi->ListPids ();      # Get all known PIDs
 @info = $pi->GetProcInfo ();   # Get the max
 %subs = $pi->Subprocesses ();  # Figure out subprocess relationships.
 @info = grep {$_->{Name} =~ m/vugen/}
    $pi->GetProcInfo ();        # All processes with 'perl' in name.
#print $info;
#print $pi;

my $href=\%subs;
print Dumper $href;
print Dumper @info;
#print Dumper @pids;
[download]

 use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

   
 Win32::Process::Open($Obj,$pid=12732,$iflags)|| die ErrorReport();
         print "connected to process $pid ";

       
    $Obj->GetExitCode($exitcode);
    print  $exitcode;
[download]

use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

    Win32::Process::Create($ProcessObj,
                                "C:\\program files\\Mercury\\LoadRunne
+r\\bin\\vugen.exe",
                                "E:\\Mibor_timingtest\\Mibor\\mibor.us
+r",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();

 Win32::Process::Open($Obj,$pid=11672,$iflags)|| die ErrorReport();


    $ProcessObj->Suspend();
    $ProcessObj->Resume();
    $ProcessObj->Wait(INFINITE);
[download]

use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

   
 Win32::Process::Open($Obj,$pid=11672,$iflags)|| die ErrorReport();
         print "connected to process $pid";

    #$ProcessObj->Suspend();
    #$ProcessObj->Resume();
    #$ProcessObj->Wait(INFINITE);
     
    $Obj->GetExitCode($exitcode);
    print $exitcode;
[download]

[reply]
[d/l]
[select]


Just another Perl shrine
	PerlMonks