Perl的Expect似乎不支持以下的功能

finixlei

1. my @result = $exp->send("some command");
   
2. foreach my $item (@result) {
   
3.     print "AAA $item AAA\n";
   
4. }
   
5. 
   
6. # 你会发现这个数组里什么都没有。
   
7. # 那么应该如何得到send一条命令后的结果呢？难道只能通过分析log的方式？
   
8. # 我记得在telnet模块中用send是可以这么用的。

复制代码

finixlei

上面少写了一个回车，结果是一样。
$exp->send("some command\n");

黑色阳光_cu

你应该去看看Expect的文档，了解比如exp_before是干嘛的

finixlei

看过文档，没注意到before()函数。
但现在看来还是问题多多，before()函数似乎是一种曲折的做法，另外它得到的是一个标量，而非一个数组，或许可以用split再把这个标量变成数组吧。

1. $exp->send("some command\n");
   
2. # expect 一个不存在的东西
   
3. $exp->expect(2, '\^');
   
4. # 然后result才能得到expect之前的所有，这是一种曲线救国的做法，right？
   
5. my @result = $exp->before();
   
6. 
   
7. # 发现只有一个元素
   
8. print “Hello, size is ", 1+$#result, "\n";
   
9. 
   
10. foreach my $item (@result) {
    
11.     print "AAA $item AAA\n";
    
12. }
    

复制代码

finixlei

加了split之后，感觉要好了不少。还是多谢了。