perl远程交互简易示范版

#! /usr/bin/perl?

?use Expect; ? ? ? ? ? ? ? ? ? ?#前提是你的服务器上得有Expect包，没有请安装，否无法使用交互

?my $PROMPT = '[]$&;#]s*$'; # 远程系统的命令提示符模式

?@a ? = qw#100.100.100.200 root#; ?#假设你要登陆的主机ip是100.100.100.200用户是root?

?$obj = Expect->spawn( "ssh -l $a[1] $a[0]" ) or die "Couldn't spawn telnet,$!";

?$obj->log_stdout(0);#关闭目标程序的回显

?$obj->expect( 10,

? ? ? ? [ qr/yes/no:s*$/i,

? ? ? ? ? sub{ my $self = shift; $self->send( "yesr" ); exp_continue;}

? ? ? ? ],

? ? ? ? [ qr/password:s*$/i,

? ? ? ? ? sub{ my $self = shift; $self->send( "123456r" ); exp_continue;}

? ? ? ? ],

? ? ? ? [ qr/$PROMPT/,

? ? ? ? ? sub{my $self=shift; $self->send( "cdrtouch 1 2 3rexitr" ); exp_continue_timeout;}

? ? ? ? ],

?);

#$obj->soft_close();#关闭目标程序