in reply to Net::SSH::Perl and su
#!/usr/local/bin/perl -w use strict; use Net::SSH::Perl; use Data::Dumper; my $ssh = Net::SSH::Perl->new( "localhost", debug => 1, protocol => 2, + interactive => 1, use_pty => 1 ); $ssh->login(); my ($out, $err, $exit ) = $ssh->cmd('su - root -c "touch /var/tmp/sill +y3"', '*******'); print "out = $out\nerr = $err\nexit = $exit\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Net::SSH::Perl and su
by rob_au (Abbot) on Mar 08, 2002 at 22:45 UTC | |
by hossman (Prior) on Mar 08, 2002 at 23:52 UTC | |
by Juerd (Abbot) on Mar 08, 2002 at 23:59 UTC | |
by Anonymous Monk on Aug 19, 2015 at 16:48 UTC | |
by mikfire (Deacon) on Mar 09, 2002 at 01:42 UTC | |
by rob_au (Abbot) on Mar 09, 2002 at 04:01 UTC | |
|
Re: Re: Net::SSH::Perl and su
by mikfire (Deacon) on Mar 09, 2002 at 01:39 UTC | |
by oubiwann (Sexton) on Mar 15, 2002 at 19:36 UTC |