ssh-sftp-perl-users

[Ssh-sftp-perl-users] Blank output with Net::SSH2

[monnappa a. <mon...@gm...>]

Hi All,

          I have written 2 codes using "Net::SSH2" module which will connect
to remote machine (linux), execute commands and give me the output...i'm
running the script on my windows machine (win xp)......The problem is when i
run this script i don't get any ouput and i also don't get any error.....can
somebody help me wat shud i do to get the output?....I'm not sure if i'm
missing  something.    both the scripts are shown below:

----------------------------------------------------------------------------
1)

 #!/usr/bin/perl -w
use strict;
use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2->connect('10.10.10.5') or die "Unable to connect host $@ \n";
$ssh2->auth_password('xyz','mypass');
my $chan = $ssh2->channel();
$chan->exec('ls -la');
while (<$chan>) {print}
-------------------------------------------------------------------------------------


2)

#!/usr/bin/perl -w
use strict;

use Net::SSH2;
my $ssh2 = Net::SSH2->new();
print "connect fail\n" unless ($ssh2->connect('sys5'));
print "password fail\n" unless ($ssh2->auth_keyboard('xyz','mypass'));

my $chan = $ssh2->channel();
$chan->shell();
print $chan "uname -a\n";
print "LINE: $_" while <$chan>;
print $chan "who\n";
print "LINE: $_" while <$chan>;
$chan->close;

--------------------------------------------------------------------

Thanks,
Monnappa

Re: [Ssh-sftp-perl-users] Blank output with Net::SSH2

[monnappa a. <mon...@gm...>]

Hi,

   As per your advice i changed the code to this

----------------------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
#use Term::ReadKey;
use Net::SSH2;
my $ssh2 = Net::SSH2->new();
print "connect fail\n" unless ($ssh2->connect('sys5'));
print "password fail\n" unless ($ssh2->auth_keyboard(xyz','mypass')));
my $buf;
my $chan = $ssh2->channel();
$chan->shell();
print $chan "uname -a\n";
select(undef,undef,undef,0.2);
my $out = "";
$out .= $buf while ((my $len = $chan->read($buf, 1000)) > 0);
print $out;

---------------------------------------------------------------------------------------------------

When i run this script, i still don't get any output., am i doing anything
wrong.........can u kindly help me with this..........any links or mailing
lists  which can solve this problem would be appreciated


Thanks,
Monnappa





On Thu, Nov 20, 2008 at 3:27 AM, Stewart Rounds <sar...@us...> wrote:

> monnappa appaiah wrote:
> -snip-
>
>> my $chan = $ssh2->channel();
>> $chan->shell();
>> print $chan "uname -a\n";
>> print "LINE: $_" while <$chan>;
>> print $chan "who\n";
>> print "LINE: $_" while <$chan>;
>> $chan->close;
>>
>
> Hi.
>
> The 'print "LINE: $_" while <$chan>;' doesn't work for me either.
> Instead, you need to monitor the channel's read buffer, like:
>
>  select(undef,undef,undef,0.2);
>  $out  = "";
>  $out .= $buf while (($len = $chan->read($buf,512)) > 0);
>  print $out;
>
> You can find examples of this online in various places.  You
> may have to add some sort of timeout or a loop to ensure that
> you read all that is to be read before moving on.
>
> I hope this helps.
>
> -Stewart Rounds
>  U.S. Geological Survey
>