当遇到很多Unix提示时自动输入'y`

Question

我必须使用Perl自动化一些与GlusterFS的即时交互。我做了一个模块delete()，它会自动删除gluster的音量;但是，它会为每个卷询问(y/n)。我如何提前提供这个答案？我的脚本在执行过程中似乎也挂起。

`my $vol_name = params->{vol_name};  
gluster volume stop $vol_name ;  
my $string = gluster volume delete $vol_name;  
print "$string\n\n\n";` 

Answer 1

您是否考虑过使用Expect.pm模块？

• https://metacpan.org/pod/distribution/Expect/Expect.pod

这主要是基于预期的TCL复制命令：

• http://www.tcl.tk/man/expect5.31/expect.1.html

它是明确设计与程序交互。

Answer 2

尝试管道是进入命令

my $string = yes | gluster volume delete $vol_name; 

从我的代码工作的例子！

yes | rm *.txt