Re^4: Redirecting"enter" when an external command is running..

I changed the order of the program execution to resolve this problem but i have one more question now...I am doing a check on $choice for value 1 or 2 ,if not print "INVALID CHOICE" and then exit the program.Is there a way to ask the user to re-enter the choice rather than exiting the program?

print "\nEnter your choice: ";
my $choice = <>;
chomp ($choice);

if($choice != (1||2)){
    print "/*******************************************************/\n
+";
    print "INVALID CHOICE\n";
    print "/*******************************************************/\n
+";
    exit;
}
[download]

Comment on Re^4: Redirecting"enter" when an external command is running.. Download Code

Replies are listed 'Best First'.
Re^5: Redirecting"enter" when an external command is running.. by ww (Archbishop) on Dec 05, 2010 at 02:52 UTC
OR (or `\|\|` ) with a negative can be very confusing... and in your sample, would not do what you want. You want the user who enters anything other than "1" or "2" to be reprompted... so you want `if ( $choice != 1 && $choice != 2 ) {` As for a way to do it (just one of many, and one about which some purists will howl) is with a label and a goto: `#!/usr/bin/perl use strict; use warnings; # 875438 START: print "\nEnter your choice: "; my $choice = <>; chomp ($choice); if ( $choice != 1 && $choice != 2 ) { print "INVALID CHOICE\n"; goto START; } else { print "\$choice: $choice \n"; }` [download] When executed, you'll see: `>pl_test/875438.pl Enter your choice: 4 INVALID CHOICE Enter your choice: 3 INVALID CHOICE Enter your choice: 2 $choice: 2 >` [download] A better option might be to re-reorganize your program; test the `$choice` and if you have a 1 or a 2, do whatever it is that you want; then `elsif` and reprompt there.	[reply] [d/l] [select]
Re^6: Redirecting"enter" when an external command is running.. by perl_mystery (Beadle) on Dec 05, 2010 at 06:27 UTC
I think I will use this.Thanks,	[reply]