求助模块（Net::SSH::Perl）的调用？

henlan

UID: 4996
帖子: 17
积分: 39
在线时间: 10 分钟

1^# henlan 发表于 2005-10-12 17:07

求助模块（Net::SSH::Perl）的调用？

求助模块（Net::SSH::Perl）的调用？
我Net::SSH::Perl相关的模块已经安装好了，可是执行如下程序没有反应！最后只报一个错误＂Segmentation fault (core dumped)＂不知道是什麽原因？

#!/usr/bin/perl

use strict;
use Net::SSH::Perl;

my $host = "192.168.3.233";
my $user = "root";
my $pass = "1234567890";
my $cmd = "ls -l";
my $ssh = Net::SSH::Perl->new($host,protocol => 2);
$ssh->login($user,$pass);
my($stdout, $stderr, $exit) = $ssh->cmd("who");
print "$stdout\n";
[CCB]10[/CCB][CCB]10[/CCB][CCB]10[/CCB][CCB]10[/CCB][CCB]10[/CCB]

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

2^# qiang 发表于 2005-10-12 21:46

打开 debug mode 看看--.
打开 debug mode 看看

my $ssh = Net::SSH::Perl->new($host,debug=>1);

henlan

UID: 4996
帖子: 17
积分: 39
在线时间: 10 分钟

3^# henlan 发表于 2005-10-13 12:04

问题解决了！
[CCB]2[/CCB]
查到原因了，谢谢帮助！

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

4^# cnhacktnt 发表于 2005-10-13 12:59

啥原因贴出来吧，因为后来.
啥原因贴出来吧，因为后来的人也许会碰到同样的问题

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

5^# qiang 发表于 2005-10-13 13:16

对啊，问问题的惯例是如果自己找到答案的话都要贴出来与大家共享的。
造福后人要比只造福自己要好的多了。