Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Need Help in NET::SSH::Perl to fetch the status of remote pid

by HariTheNewMonk (Initiate)
on Dec 06, 2012 at 06:31 UTC ( #1007481=perlquestion: print w/replies, xml ) Need Help??
HariTheNewMonk has asked for the wisdom of the Perl Monks concerning the following question:

Hello enlightened monks. I am new in community and I need some help. I want to know if a particular process Id is running on remote machine.But When I use the NET::SSH::Perl I get "stdout" as 0 always, irrespective of process is running or not. Please help below is my code

#!/usr/bin/perl use Net::SSH::Perl; my $host = 'xl-blr-03.ban'; my $user = 'mcsi_user'; my $password = 'password'; #-- set up a new connection my $ssh = Net::SSH::Perl->new($host); #-- authenticate $ssh->login($user, $password); #-- execute the command my($stdout, $stderr, $exit) = $ssh->cmd("kill -0 28075 ; echo $?"); print " Output is $stdout \n";

Replies are listed 'Best First'.
Re: Need Help in NET::SSH::Perl to fetch the status of remote pid
by Khen1950fx (Canon) on Dec 06, 2012 at 08:02 UTC
    I tried it on my system. It works for me; however, I did it a little differently:
    #!/usr/bin/perl -l use strict; use warnings; use Net::SSH::Perl; my $host = 'xl-blr-03.ban'; my $user = 'mcsi_user'; my $password = 'password'; my $cmd = system("kill 0 28075; echo $?"); my $ssh = Net::SSH::Perl->new($host, debug => 1); $ssh->login($user, $password); my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

      Hello Khen. The example you posted does not see if the process is working on remote machine.When you give

       system("kill 0 28075; echo $?")

      you are seeing if the process exist on local machine and the system command will not return the output. Then the $cmd you pass it to remote machine . What I wanted is to execute the " process exist or not on remote machine . Please do help me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1007481]
Approved by bitingduck
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2018-06-21 11:35 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (118 votes). Check out past polls.