Hope this helps ...print "Do you want to submit Job A? "; chomp (my $question = <STDIN>); die "Goodbye\n" unless $question=~ /(yes|y)/i; print "Are You Sure? "; chomp (my $question2= <STDIN>); die "Goodbye\n" unless $question2 =~ /(yes|y)/i; print "Everything good\n";
In reply to Re: Re: I think I'm close...
by ropey
in thread Parsing answer for a 'yes'
by ddrumguy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |