一个用Perl的Expect模块写的小脚本

#!/usr/bin/perl
use Expect;
use strict;
my $timeout = 20;
open (FH,"/xxx/xxx.txt") ;
my @hostip=<FH>;
foreach my $i (@hostip){
my $exp = Expect->spawn("ssh $i") or die "Can't spawn";
        $exp->expect($timeout,-re=>'~#');
        $exp->send("cmd1;cmd2;cmd3\r");
        $exp->expect($timeout,-re=>'~#');
        $exp->send("exit\r\n");
        print $exp->match_number();
        $exp->soft_close();
}