STDIN

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: STDIN by Ovid (Cardinal) on Nov 19, 2002 at 00:05 UTC
Check out Expect and Expect::Simple. Those should do what you are looking for. Cheers, Ovid New address of my CGI Course. Silence is Evil	[reply]
Re: STDIN by Zaxo (Archbishop) on Nov 19, 2002 at 00:33 UTC
More sick and evil stuff! `{ open local(*STDIN), '<', \"yes\n" or die $!; system @the_args; }` [download] Again, this is a perl 5.8 PerlIO trick, a little more apt this time. After Compline, Zaxo	[reply] [d/l]
Re: STDIN by submersible_toaster (Chaplain) on Nov 19, 2002 at 00:05 UTC
Yeaas, and as usual there are a million permutations. Some simple ones leap to mind. `system ( "echo yes \| /usr/bin/querrelous" );` [download] which obviously will only work for the one 'yes'or'no' `open ( SYS "\|/usr/bin/querrelous" ); print SYS 'yes' , $/;` [download] For anything more complicated maybe you should think about IPC::Open2 for talking and listening to your process. `submersible_toaster bashing buttons` [download]	[reply] [d/l] [select]
Re: STDIN by rob_au (Abbot) on Nov 19, 2002 at 00:06 UTC
You will want to have a look at the Expect module which will handle interactive tasks without operator assistance. The documentation for this module includes an extensive list of frequently asked questions about how to make things work. `perl -e 'print+unpack("N",pack("B32","00000000000000000000000111100110")),"\n"'`	[reply]
Re: STDIN by bluto (Curate) on Nov 19, 2002 at 00:08 UTC
The unix 'yes' command prints 'y' or 'yes', depending on your system type, or whatever string you put on the command line to STDOUT. So you should be able to do this... `system("yes y \| command");` [download] bluto	[reply] [d/l]