perl – 如何使用Net :: SSH :: Any模块执行一系列命令？

发布时间：2020-12-16 06:15:59 所属栏目：大数据来源：网络整理

导读：我希望在使用Net :: SSH :: Any连接到服务器后在同一会话中执行多个命令. 我的示例代码如下： use strict;use warnings;use Net::SSH::Any;my $host = "ip address";my $user = "user";my $passwd = "pass";my $cmd1 = 'cd /usr/script';my $ssh = Net::SSH:

我希望在使用Net :: SSH :: Any连接到服务器后在同一会话中执行多个命令.

我的示例代码如下：

use strict;
use warnings;

use Net::SSH::Any;

my $host = "ip address";
my $user = "user";
my $passwd = "pass";
my $cmd1 = 'cd /usr/script';

my $ssh = Net::SSH::Any->new($host,user => $user,password => $passwd);
$ssh->system($cmd1);
my $pwd = $ssh->capture("pwd");
print $pwd;

我期待以下输出：

/usr/script

但相反,我得到：

/home/user

如何在单个会话中执行多个命令？

解决方法

你必须在远程shell中链接你的命令,如下所示：

my $cwd = $ssh->capture( q{cd /usr/script && pwd} );

你必须这样做,因为即使目前支持的Net :: SSH :: Any后端都提供了其他方法(Net :: OpenSSH有open2pty,Net :: SSH2有channels),Net :: SSH ::任何API都不会公开这些.

例如,系统调用Net :: OpenSSH的系统方法或创建Net :: SSH2 :: Channel并调用进程(‘exec’=> $cmd)(每个通道限制为一个命令).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!