免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3349 | 回复: 2

想在windows 下写一个自动连接ssh的脚本,用哪个模块好? [复制链接]

论坛徽章:
0
发表于 2009-11-20 11:06 |显示全部楼层
想在windows 下写一个脚本,自动连接ssh,然后执行一些命令,用哪个模块呢?
(我装的环境是activeperl 5.8.8)

我发现net::ssh::expect,用不了。


然后又试试 net::ssh:w32perl.

写了个测试脚本:
#!perl
use strict ;
use warnings;
use Net::SSH::W32Perl;
my $host = '192.168.1.22';
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login('admin', 'admin');
my ($out, $err, $exit) = $ssh->cmd('ls');
print $out;

运行报错:
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.

请达人指点,谢谢

论坛徽章:
1
狮子座
日期:2013-12-16 16:09:24
发表于 2009-11-20 11:44 |显示全部楼层
Net::SSH:erl; 用起来这么拉风啊....
帮顶

论坛徽章:
0
发表于 2009-11-20 14:14 |显示全部楼层
不要调侃了, 从cpan贴来的示范代码。
刚才的问题找到了,是这个模块的一个bug
调用前,加上下面这句就可以了:
$ENV{HOME} = "C:\\";

不过又出现了新问题:

脚本报错:
Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::Fas
tCalc at C:/Perl/site/lib/Crypt/DH.pm line 6
然后就挂起了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP