Hi Perl monks. Ok, so, I have a situation. There is a script which needs user input. & I need to automate running of this script. Which means I cannot provide the user inputs as <STDIN>. Expect module is not an option for me as the scripts need to run on Windows. Any suggestions?
Here is a sample code.
TobeAutomated.pl
my $count = 0;
while ($count < 2) {
$count ++;
print "Question? y/n: ";
chomp(my $answer = <>);
print "You said `$answer`\n";
}
I am not allowed to edit the above script.
Now I need to automate running the above script.
And my answer needs to be "y" followed by "n"
I tried `echo y|perl TobeAutomated.pl` This takes care of One user input as "y" . I don't know how to feed in the second input "n"
Any leads will be much appreciated !