perl Expect中的before

最新推荐文章于 2022-06-02 22:02:32 发布

zy12805

最新推荐文章于 2022-06-02 22:02:32 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/zhangyuan12805/article/details/70243952

Perl 专栏收录该内容

44 篇文章

订阅专栏

本文介绍Perl语言中使用Expect模块进行SSH连接自动化操作的方法。通过具体的代码示例，展示了如何实现远程登录验证及后续命令交互流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

$exp->send($string);

$exp->expect(

$timeout,

[ qr/expect_something/i, sub { do_something);exp_continue; }],

);

$s = $exp->before(); # $s就得到匹配expect_somthing之前的字符串，如果匹配失败，得到所有的输出。

所以在下面的示例中，必须加这一句$exp->expect(1, undef);，才能获得vsx命令的输出结果

my $exp = Expect->new;

            my $cmd = "ssh $FIR_USER\@$FIREWALL";
            $exp->spawn($cmd) or die "cannot spawn $cmd:$!\n";
            $exp->expect(3,
            [qr/$yes\/no$\?/i, sub{
                 $exp->send("yes\n");
                exp_continue;
            }],
            [qr/$FIREWALL's\s*password:/i, sub{
                 $exp->send("$FIR_PSW\r");
            }]
            );
            $exp->expect(3,
            [qr/admin@\w+>/i, sub{
                $exp->send("vxs\n");
            }]
            );
            $exp->expect(1, undef); //必须加这一句，因为before得到的是上一个匹配之前的字符串，这里得到的是undef之前的输出，即vsx的输出
            my $out = $exp->before();
            $exp->soft_close();
            if($out =~ m/enter\s*the\s*vxWorks\s*shell/is){
                $is_product = 0;
            }
            print "out:$out\n";

print "is_product:$is_product\n";