用perl写一个ssh2的脚本

生了锈的钢笔

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

1^# 生了锈的钢笔发表于 2008-11-18 09:29

用perl写一个ssh2的脚本

先ssh2到10.132.215.49 userid/psw: oamce_backup/ oamce_data ，再telnet 到10.132.215.36或10.132.215.36 userid/psw: jtuser / alausr

输入s12之后就可进行人机命令操作。
需要先ssh2到一台机器上，然后telnet另一台，在36这台机器上每输入一行后回车，然后把屏幕输出的东西取过来，请教下该怎么写

whut_air

UID: 2338
帖子: 25
积分: 57
在线时间: 1 小时

2^# whut_air 发表于 2008-11-18 10:46

你一定要用 perl么  如果使用的是crt 的话你可以试下下面的

在CRT软件的安装目录下都有目录  CRT\scripts
可以对该脚本进行简单修改后用来实现多个主机之间跳跃

  crt.Screen.WaitForString "ZHCJ2:/home/ricsson>"
  crt.Screen.Send "telnet XXXXX" & VbCr
  crt.Screen.WaitForString "ogin: "
  crt.Screen.Send "用户名" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "密码" & VbCr

其中就2条语句要注意
  crt.Screen.WaitForString "assword:" #类似条件语句  如果 crt写入：  assword:
  crt.Screen.Send "密码" & VbCr    #输入       gmcc@2.0 而 & VbCr 是回车。

解决了给我加点分谢谢

huhuegg

UID: 4540
帖子: 118
积分: 271
在线时间: 19 小时

3^# huhuegg 发表于 2008-11-18 10:52

shell:
expect ssh

perl:
Net::SSH

adminsinx

UID: 18793
帖子: 56
积分: 128
在线时间: 4 小时

4^# adminsinx 发表于 2008-12-17 09:26

QUOTE:

原帖由 huhuegg 于 2008-11-18 10:52 发表
shell:
expect ssh

perl:
Net::SSH

perl:
Net::SSH 怎么实现？非常想知道，因为我也经常要这么做？

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

5^# MMMIX 发表于 2008-12-17 09:33

QUOTE:

原帖由 adminsinx 于 2008-12-17 09:26 发表

perl:
Net::SSH 怎么实现？非常想知道，

你看看它的代码不就知道了？