使用expect模块实现自动安装的脚本，退出有问题，请帮忙看一下（解决）

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. 
    

复制代码

手动安装时，执行到最后一步，按回车程序就正常退出了，回到shell提示符。
但是用这个脚本安装时，到最后一步会停住，每次都是手动ctrl+c去退出。

myeverything

应当是最后不要exp_continue了吧～～

kk861123

myeverything 发表于 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 {""} ],