Question

有2个系统，

客户端系统，我通过对服务器执行openssh将命令传递给服务器，我的脚本就像这样

#!/usr/bin/perl
use lib "/home/geek/app/usr/lib/perl5/site_perl/5.8.8";
use lib "/home/geek/app/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi";
use lib "/usr/lib/perl5/5.8.8";

use Net::OpenSSH;
my $host = '******010';
my $user = '*****';
my $pass = '*****';
my $ssh = Net::OpenSSH->new("$user:$pass\@$host");
$ssh->error and
 die "Couldn't establish SSH connection: ". $ssh->error;
my $out = $ssh->capture("/p/inway/bin/inway71 lib123 p123.0_CC default ");
#my $out = $ssh->capture("cd units; ls");
#$out = $ssh->capture("ls units/");

 print "output is $out";

并且在server / p / inway / bin / inway71中是一个脚本：

#!/bin/sh
. $MODULESHOME/init/sh
module load lsf

exec bsub -Is -q interactive -J INWAY71_LSF -R 'type==X64LIN && osrel==50 && clearcase' /nfs/site/proj/inway/bin/inway71 ${1+"$@"}

所以当我登录我的服务器并在我的终端中运行此脚本时，我将被引导到某个路径（我不知道它是什么，但我猜它还有一个服务器，我可以使用这个bash脚本登录）我可以完成剩余的活动，如cd，ls，cat等等）

但是当我从我的客户端系统运行它时它将控制权传递给终端并等待我的输入，并且在我的终端中我得到一个错误说，

stty:standard input:Invalid argument

在我的终端中，我可以执行ls或任何操作，但无法从perl脚本执行此操作并捕获结果。我怎样才能解决这个问题并得到我想要的东西？

Answer 1

该远程命令期望以交互模式运行。这不适用于SSH命令模式。看到这个网络:: OpenSSH FAQ！

你可以：

找到一种方法将命令作为参数传递给该脚本。
重写它以接受命令作为参数。
使用Expect与其对话。

使用perl openssh传递命令服务器

1 个答案: