perl实现自动ssh到服务器，并返回操作结果

wdy2168

UID: 40111
帖子: 143
积分: 328
在线时间: 1 天 4 小时

1^# wdy2168 发表于 2008-07-28 16:00

perl实现自动ssh到服务器，并返回操作结果

想实现从A服务器自动ssh到B上，并将在B上执行top的结果输出到A 上某一log下，请教能否给个参考例子。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-28 16:05

perldoc Net::SSH

wdy2168

UID: 40111
帖子: 143
积分: 328
在线时间: 1 天 4 小时

3^# wdy2168 发表于 2008-07-28 16:10

问一下，Net/SSH 需要单独安装吗？
我再hp unix B11.23 上执行
$ perl ./xunjian.pl
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.3/PA-RISC1.1-thread-multi /opt/perl_32/lib/5.8.3 /opt/perl_32/lib/site_perl/5.8.3/PA-RISC1.1-thread-multi /opt/perl_32/lib/site_perl/5.8.3 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.3/PA-RISC1.1-thread-multi /opt/perl_32/lib/vendor_perl/5.8.3 /opt/perl_32/lib/vendor_perl .) at ./xunjian.pl line 5.
BEGIN failed--compilation aborted at ./xunjian.pl line 5.
$

请问什么原因？请指教，谢谢！

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

4^# hfahe 发表于 2008-07-28 16:24

已经很明显了
Can't locate Net/SSH/Perl.pm in @INC