Net::SSH::Perl question

[Sai Kiran]

Hi,

I have a requirement where i need to login to a remote server and then
su to another user for executing commands. The problem that i am facing
is that i am not able to find how to pass the password for the su
command after i login into the remote system.

My code looks like this?

#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH:erl;

my ($host,$user,$pass);


( $host, $user, $pass ) = ('hostname', 'username', 'passwd' );
my $conn = Net::SSH:erl->new($host,"protocol 2,1");
$conn->login($user,$pass);
my ( $out,$err,$exit) = $conn->cmd('su - username "ls -l"
','password');
print " -------- $host -----------\n";
if ( $exit == 0 )
{ print $out."\n"; }
else
{ print $err."\n"; }



any pointers on where i going wrong?

I know that password cannot be passed as stdin to su. Any other ideas
or suggestion are highly welcome.

Thanking you.

 

[usenet]

is that i am not able to find how to pass the password for the su
command after i login into the remote system.

The only way I know of to do that is by the use of Expect:

http://search.cpan.org/~rgiersig/Expect-1.20/Expect.pod

 

[Sai Kiran]

David Filmer (http://DavidFilmer.com)

Thanks David.