在Perl中预期不会在服务器上发送命令

Question

我是新来的。我正在使用Expect.pm在远程服务器上发送一些命令。脚本正在执行telnet，但在匹配提示符后不发送命令。

以下是脚本：

use Expect;
use strict;
use warnings;
my $obj = new Expect;
$obj = Expect->spawn("telnet 47.134.117.133");
my $val =  $obj->expect(15, "<");
#print "****$val****";
sleep 5;
$obj->debug(1); # after a comment i modified this#
$obj->send("some command");

我试着打印val，它正在返回1。但没有在终端机上发出命令。我做错什么了吗？

根据一条注释，在以$obj->debug(1)的形式发送命令之前，我尝试过调试命令。它给出的输出

< Closing spawn id(5).
 at /usr/lib/perl5/site_perl/5.14/Expect.pm line 1386
        Expect::hard_close('Expect=GLOB(0x6002b0560)') called at /usr/lib/perl5/site_perl/5.14/Expect.pm line 1575
        Expect::DESTROY('Expect=GLOB(0x6002b0560)') called at expect.txt line 0
        eval {...} called at expect.txt line 0
spawn id(5) closed.
Pid 968 of spawn id(5) terminated, Status: 0x01

Answer 1

不确定some command是什么，但是您应该发送"some command\n"，因为telnet在按Enter键之前不会发送命令。另外，如果send调用是脚本中的最后一个调用(如示例中所示)，那么它可能在发送之前退出，所以要么在最后一个send之后放置一个sleep调用，要么用soft_close正确地关闭expect。