遇到许多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

尝试在命令

中使用yes

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

我的代码中的一个工作示例！

yes | rm *.txt

Answer 2

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

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

它基本上是基于Tcl的expect命令的副本：

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

它是专门为与程序交互而设计的。