perl远程交互简易示范版

概述#! /usr/bin/perl   use Expect;                    #前提是你的服务器上得有Expect包，没有请安装，否无法使用交互  my $PROMPT = '[\]\$\>\#]\s*$'; # 远程系统的命令提示符模式  @a   = qw#100.100.100.200 root#;  #假设你要登陆的主机ip是100.100.100.200用户是roo

#! /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( "yes\r" ); exp_continue;}

        ],

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

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

        ],

        [ qr/$PROMPT/,

          sub{my $self=shift; $self->send( "cd\rtouch 1 2 3\rexit\r" ); exp_continue_timeout;}

        ],

 );

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

总结

以上是内存溢出为你收集整理的perl远程交互简易示范版全部内容，希望文章能够帮你解决perl远程交互简易示范版所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。