net::ssh2 返回结果疑问

luckyelement

UID: 34753
帖子: 36
积分: 82
在线时间: 1 小时

1^# luckyelement 发表于 2008-02-28 17:42

net::ssh2 返回结果疑问

1. 环境: perl 5.8.8 包: Net::SSH2

2.

use strict;
use Net::SSH2;

my $host = "";
my $user = "";
my $pass = "";
my $ssh2 = Net::SSH2->new();

$ssh2->connect($host) or die "Unable to $host\n";

if($ssh2->auth_keyboard($user,$pass)) {
    print "connect success!\n";
    my $chan = $ssh2->channel();
    $chan->exec("ls /tmp");
    print $_ while(<$chan>);
}
else {
    print "cann't connect\n";
}

$ssh2->disconnect();

3. 执行结果
命令成功运行, 却得不到返回结果.

请教一下, 如果得到返回结果? 谢谢.

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-02-28 18:38

perldoc Net::SSH2