使用expect模塊實現(xiàn)自動安裝的腳本，退出有問題，請幫忙看一下（解決）

unixthisyear

1. 
   
2. 
   
3. if ( "$Server_type" eq "master" ){
   
4.     #print $Path_to_install_command;
   
5.     $install = Expect->spawn( $Path_to_install_command ) or die "Couldn't spawn, $!";
   
6.    
   
7.     $install->expect(600,       # set timeout
   
8.             [ qr/Do you wish to continue?/,
   
9.                 sub { my $self = shift; $self->send("y\r"); exp_continue;} ],
   
10.             ....
    
11.             ....
    
12.             [ qr/That file can be deleted after you are sure the install was successful./,
    
13.                 sub { my $self = shift; $self->send("\r"); exp_continue;} ],
    
14.     );
    
15.     $install->soft_close();
    
16.     exit 0;
    
17. }
    
18. 
    

復制代碼

手動安裝時，執(zhí)行到最后一步，按回車程序就正常退出了，回到shell提示符。
但是用這個腳本安裝時，到最后一步會停住，每次都是手動ctrl+c去退出。

myeverything

應當是最后不要exp_continue了吧～～

kk861123

myeverything 發(fā)表于 2012-07-13 13:23
應當是最后不要exp_continue了吧～～

I think so

unixthisyear

Thanks a lot. Got it.

蚊仔perlperl

喔...學習到了

jason680

回復 1# unixthisyear

add below into $install->expect(...);

[ eof => sub {""} ],