calling a shell script present on another server using perl script.

anandg111 · 07-17-2012, 12:53 AM

Hi,

I am working on a sever A.
I want to write a perl script to execute a shell script persent on the server B.
please help me in this.

thanks in advance.

pingu · 07-17-2012, 01:58 AM

You can easily execute a shell script with ssh:
ssh user@serverB <script-on-serverB>

If you want it to run without asking for password you can set up certificates, there are several guides on internet about that.

sharadchhetri · 07-17-2012, 03:43 AM

Quote:

Originally Posted by pingu

You can easily execute a shell script with ssh:
ssh user@serverB <script-on-serverB>

If you want it to run without asking for password you can set up certificates, there are several guides on internet about that.

thats a basic command, ssh user@servername "command_in-remote-host"

In perl, u can use 3 module.
(1) Net::SSH
(2) Net::SSH::Perl
(3) Net::SSH:Expect

(1) Net::SSH = Here you have to setup RSA or DSA key first. Then you have to use these module in your perl script.
For reference how to setup RSA key. This is in my blog link. http://sharadchhetri.com/2011/11/28/...ordless-login/

Quote:

use Net::SSH qw(ssh issh sshopen2 sshopen3);

ssh('user@hostname', $command);

issh('user@hostname', $command);

ssh_cmd('user@hostname', $command);
ssh_cmd( {
user => 'user',
host => 'host.name',
command => 'command',
args => [ '-arg1', '-arg2' ],
stdin_string => "string\n",
} );

sshopen2('user@hostname', $reader, $writer, $command);

sshopen3('user@hostname', $writer, $reader, $error, $command);

(2) Net::SSH::Perl

Quote:

use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

(3) Net::SSH::Expect :

I think in this you have to install expect in your system either by rpm,yum or as per your distro.

Eg. is big so pasting the link.

http://search.cpan.org/~bnegrao/Net-...SSH/Expect.pod

sharadchhetri · 07-17-2012, 03:44 AM

Quote:

Originally Posted by sharadchhetri

thats a basic command, ssh user@servername "command_in-remote-host"

In perl, u can use 3 module.
(1) Net::SSH
(2) Net::SSH::Perl
(3) Net::SSH:Expect

(1) Net::SSH = Here you have to setup RSA or DSA key first. Then you have to use these module in your perl script.
For reference how to setup RSA key. This is in my blog link. http://sharadchhetri.com/2011/11/28/...ordless-login/

(2) Net::SSH::Perl

(3) Net::SSH::Expect :

I think in this you have to install expect in your system either by rpm,yum or as per your distro.

Eg. is big so pasting the link.

http://search.cpan.org/~bnegrao/Net-...SSH/Expect.pod

You have to install these module for perl script.

anandg111 · 07-18-2012, 12:23 AM

Thanks Sharad.