Help for this page

Select Code to Download


  1. or download this
     
#!/usr/bin/perl
use Net::SSH::W32Perl;
...
print $out;
print $err;
print $exit;
  2. or download this
    #!/usr/bin/perl
use Net::SSH::W32Perl;
...
 $ssh->login('xxx', 'xxx');
 my $out = $ssh->cmd('ll');
 print $out;
  3. or download this
    Mike: Reading configuration data C:\/.ssh/config
Mike: Reading configuration data /etc/ssh_config
...
Mike: Sending command: ll   (<==== why twice?)
Mike: Requesting service exec on channel 1.
Mike: channel 1: open confirm rwindow 0 rmax 32768    (<==== hangs her
+e, no return)