perl遠程互動簡易示範版

標籤：perl   expect   遠程互動   

#! /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();#關閉目標程式

本文出自 “procedure” 部落格，請務必保留此出處http://sonwnja.blog.51cto.com/10425150/1662544

perl遠程互動簡易示範版