in reply to how to take user input from command line and continue
#!/usr/bin/perl use strict; use warnings; use Term::ReadLine; # Initialize the term variable for the keyborad input my $commandLineMessage = $ARGV[0]; my $TERM = new Term::ReadLine 'Installer'; my $OUT = $TERM->OUT || \*STDOUT; my $prompt = "Would you like to continue?\n"; my $ans = 'yes' if $commandLineMessage eq 'yes'; $ans = $TERM->readline($prompt) if $commandLineMessage ne 'yes'; chomp($ans); print "ans is $ans \n"; if($ans =~ /yes/) { print "yes and continue\n"; } else { print "no and take action\n"; }
If you had used strict and warnings, you would have found the main syntactical error in this line:
$ans = ($TERM->readline($prompt)) ? : 'yes' :<STDIN> ;
which means "if a response is given, then $ans is yes, if no response is given, get a line from standard input". Which in turn means that $ans will always be set to yes if the user gives any input at all.
I hope that helps
|
|---|