Help for this page

Select Code to Download


  1. or download this
        my $ssh = Net::SSH::Perl->new("host1", protocol=>2, debug=>1);
    $ssh->login("user1", "pass1");

    ($out, $err, $exit) = $ssh->cmd("hostname");
    print "Out: $out$/Err: $err$/Exit: $exit$/";
  2. or download this
    sub do_init {
    my $sftp = shift;
...
    $b->append($buf->bytes);
    $sftp->{channel}->send_data($b->bytes);
}