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

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