Entering `y` automatically when encountering many Unix prompts

Question

I have to automate some prompt-interactions with GlusterFS using Perl. I made a module delete() that automatically deletes gluster volume; however, it asks (y/n) for each volume. How can I provide this answer in advance? My script below also seems to hang during execution.

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

[Expect](http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod) is a general solution to interact in your Perl script with other interactive programs. — Lee Duhem, Feb 22 '14 at 04:57
You appear to be missing some quotes. That's not valid Perl code. — nobody, Apr 08 '14 at 15:58

score 2 · Answer 1 · answered Feb 21 '14 at 23:06

2

Try piping yes into the command

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

A working example from my code!

yes | rm *.txt

answered Feb 21 '14 at 23:06

BillyBigPotatoes

1,330
11
23

3

`rm` has the `-f` option, you know. – ThisSuitIsBlackNot Feb 21 '14 at 23:07
...or you know, not specifying `-i`. – ikegami Feb 21 '14 at 23:13

score 0 · Accepted Answer · edited Apr 08 '14 at 15:38

0

Have you considered using the Expect.pm module?

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

It basically is a copy of the Tcl based expect command:

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

It is designed explicitly for interacting with programs.

edited Apr 08 '14 at 15:38

titanofold

2,852
1
15
21

answered Feb 22 '14 at 06:15

earino

2,885
21
20

Entering `y` automatically when encountering many Unix prompts

2 Answers2