问Expect模块中的expect函数的用法

liht1981

我自己写的一段代码，但是由于主机的密码不能确定，可能是aaa，也可能是bbb，那么
如何在expect函数中：如果aaa不对，那么试bbb，我在cpan上看了看说明，也没有太
弄清楚，有没有大侠可以指点一下，将下面这段代码按需求改一下？
my $exp = Expect->spawn("telnet 1.1.1.1");
                 $exp->expect(10, '-re', "login:");
                 $exp->send("root\n");
                 $exp->expect(10, '-re', "Password:");
                 $exp->send("aaa\n");

[ 本帖最后由 liht1981 于 2008-1-21 17:22 编辑 ]

Lonki

换成Tcl形式, 分别加上exp_continue;

liht1981

我看手册上是这样写的，但是不太理解，你能否祥解或给个例子看看
  expect($timeout,
         '-i', [ $obj1, $obj2, ... ],
               [ $re_pattern, sub { ...; exp_continue; }, @subparms, ],
               [ 'eof', sub { ... } ],
               [ 'timeout', sub { ... }, \$subparm1 ],
         '-i', [ $objn, ...],
               '-ex', $exact_pattern, sub { ... },
               $exact_pattern, sub { ...; exp_continue_timeout; },
               '-re', $re_pattern, sub { ... },
         '-i', \@object_list, @pattern_list,
         ...);

Lonki

$exp->expect(undef,
             [ qr/^Login:/i,     sub { my $self = shift;
                                       $self->send("$login\n");
                                       exp_continue; } ],
             [ qr/^Password:/,   sub { my $self = shift;
                                       $self->send("$passwd\n");
                                       exp_continue; } ],
             [ qr/Sorry/,        sub { exit 98;      } ],
            );

liht1981

谢谢，明天去公司研究一下

apile

碰到不确定那一组密码正确..通常我会用个while...强迫一直匹配...
当然timeout是很重要的...

liht1981

用while，我觉得也是好主意，但是怎么根据expect的返回值进行判断呢？
我刚开始用perl不久，还请指点一下，感觉cpan上的手册都写得不详细