Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^3: A little demo for Net::SSH2

by TGI (Parson)
on Aug 21, 2009 at 03:09 UTC ( #790230=note: print w/ replies, xml ) Need Help??

in reply to Re^2: A little demo for Net::SSH2
in thread A little demo for Net::SSH2

Thanks for the start, but I found your code would hang on my system. But, all I had to do was make the channel non-blocking and it worked.

if( $ssh2->connect($host) ) { if( $ssh2->auth_password($user,$pass) ) { #shell use my $chan = $ssh2->channel(); $chan->blocking(0); $chan->shell(); $chan->write("ls -a\n"); select(undef,undef,undef,0.2); print $buf while defined ($len = $chan->read($buf,512)); $chan->write("who\n"); select(undef,undef,undef,0.2); print $buf while defined ($len = $chan->read($buf,512)); $chan->close; } else { warn "auth failed.\n"; } }

TGI says moo

Comment on Re^3: A little demo for Net::SSH2
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://790230]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2015-11-28 12:38 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (741 votes), past polls