#!/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
In reply to Re: how to take user input from command line and continue
by mtmcc
in thread how to take user input from command line and continue
by simonz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |