用perl写一个ssh2的脚本

用perl写一个ssh2的（9php.com）脚本

先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这台机器上每输入一行后回车，然后把屏幕输出的（9php.com）东西取过来，请教下该怎么写

你一定要用 perl么  如果使用的（9php.com）是crt 的（9php.com）话你可以试下下面的（9php.com）


在CRT软件的（9php.com）安装目录下都有目录  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      #输入         [email]gmcc@2.0[/email]   而 & VbCr    是回车。   


解决了给我加点分谢谢

shell:
expect ssh

perl:
Net::SSH