Allocating $buf like I've done above is not really necessary - the following should work just as well:use warnings; use strict; use Net::SSH2; my $buflen = 100; my $buf = '0' x $buflen; my $ssh2 = Net::SSH2->new(); $ssh2->connect('192.168.0.3') or die "Unable to connect Host $@ \n"; $ssh2->auth_password('user','password') or die "Unable to login $@ \n"; my $chan2 = $ssh2->channel(); $chan2->blocking(1); $chan2->exec('pwd'); $chan2->read($buf, $buflen); print $buf; $chan2->close;
See also the the Net::SSH2 test script for some examples of usage.use warnings; use strict; use Net::SSH2; my $ssh2 = Net::SSH2->new(); $ssh2->connect('192.168.0.3') or die "Unable to connect Host $@ \n"; $ssh2->auth_password('user','password') or die "Unable to login $@ \n"; my $chan2 = $ssh2->channel(); $chan2->blocking(1); $chan2->exec('pwd'); $chan2->read(my $buf, 100); print $buf; $chan2->close;
In reply to Re^3: Net::SSH::W32Perl Just Hangs
by syphilis
in thread Net::SSH::W32Perl Just Hangs
by dorko
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |