Expect模块，before抓不到命令输出

hqyus

使用Expect模块在cisco设备上抓命令输出，代码如下：

    $exp->send_slow(0.001,$cmd,"\n");
      $exp->expect($timeout, -re => /^.*#/s);
      my $output = $exp->before;

‘#’ 就是设备的命令提示符，也就应该是输出的最后一行。 但是这样抓不到任何东西。

如果把中间一行改为：

  $exp->expect(5,undef);

就可以抓到全部的命令输出。 但是这样就很慢，每个命令都要等5秒。而且万一某个命令的响应超过5秒，还会出现抓不全的情况。

请问这个输出应该怎么才能抓到？ 谢谢。

laputa73

  @result  =$exp->expect($timeout,'#');
   print "3.prematch=$result[3],match=$result[2].\n";
    $ret=$exp->exp_before();
print "3.before=$ret.\n";

hqyus

不行，仍然抓不住。

my @result = $exp->expect($timeout,'#');
print "3.prematch=$result[3],match=$result[2].\n";
my $output = $exp->exp_before();
print "3.before=$output.\n";

下面是输出：
RP/0/RP0/CPU0:rwca-r-001#admin show environment tempera3.prematch=
RP/0/RP0/CPU0:rwca-r-001,match=#.
3.before=
RP/0/RP0/CPU0:rwca-r-001.tures
Thu Dec  5 15:05:24.215 ESDT
R/S/I   Modules         Inlet           Exhaust         Hotspot
                        Temperature     Temperature     Temperature
                        (deg C)         (deg C)         (deg C)

0/0/*
        host              42, 38         32, 33         37, 40, 37,
                                                            36, 40, 40,
                                                            43, 59


好像在命令还没有执行完成的时候就开始抓数据了，但是这个时候#还没有出现。 我还用-re=>/#######/;  这样应该匹配失败，等20秒timeout, 但是脚本并没有等待就执行完了，貌似这个匹配根本就没起作用。

laputa73

关掉回显.
    $exp->log_stdout(0);
                $exp->raw_pty(1);


send和expect配套使用.很容易理解.
你那就是expect匹配到命令回显的#了

hqyus

试过了，仍然不行。 结果没有变化。
您有成功的在cisco设备上抓到命令输出的代码给我分享一下吗？多谢！

hqyus

问题解决了：
看了文档，有这样一句话：
Also new is multiline matching. ^ will now match the beginning of lines. Unfortunately, because perl doesn't use $/ in determining where lines break using $ to find the end of a line frequently doesn't work. This is because your terminal is returning "\r\n" at the end of every line. One way to check for a pattern at the end of a line would be to use \r?$ instead of $.

把代码改为：
my @result = $exp->expect($timeout,'-re','#\r?$');

就可以了。

但是之前打开了 $Expect::Exp_Internal = 1;  打开之后debug信息非常清楚，可以很方便的找到问题。
谢谢大家。

364816318

回复 1# hqyus