Net::SSH::Perl 模块执行多条命令

moryaden

说实话，这个 Net::SSH::Perl 模块挺难用的。
看它在cpan的review就知道不太受欢迎。
但我查看了一下，貌似除了它没有其他模块用perl内嵌的东西来执行ssh模块，基本上都是
最后需要依赖系统的 ssh 或者 openssh 可执行命令来实现。
如果哪位同学知道有比 Net::SSH::Perl 更好的选择，请千万别藏私……

Net::SSH::Perl 首先安装比较困难。
我的难点是，多个平台，suse sun aix安装，而且，这些个系统不允许连接cpan，也就没办法借助 cpan tool来自动安装。
库的依赖关系相当繁琐……

最终折腾安装上了之后，现在的困惑是，
貌似它就只提供了一个open2 接口来完成自动化的东西，
cmd函数接口貌似只能单次执行命令，一旦执行完成之后，
再次执行的命令无法继承上次执行结果？
比如
# pwd ~
$ssh->cmd("cd bin");
$ssh->cmd("pwd");
这里得到的结果还是 ~

而 open2 这个东西，例子很少，看不太懂。

climby

如果是比较简单的有上下文依赖的命令，不妨这样

1. $ssh->cmd("cd bin; pwd")

复制代码

moryaden

谢谢回复。

确实不是那么简单的命令。
我需要执行一个命令，然后这个命令是一个 alias
如果成功，会自动切换到特定的目录。
然后在该目录里面需要执行相应的检测和其它命令。
基本上没法连接成为一个单独的命令串……

moryaden

有没有谁用过这个东西，我现在已经有一个整体是用telnet来实现的东西，
但这个块是基于 prompt 的。
而ssh里面不是这种概念，而是 stdout stderr这种分开的东西。

如果有人已经实现了ssh => telnet 模块的wrap接口的话，请帮忙推荐一个。
谢谢