in reply to Re: I think I'm close...
in thread Parsing answer for a 'yes'
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";
|
|---|