perl exact string match

Question

I have following Perl code to prompt user for yes/no answer. If the user enters anything else than yes/no, keep prompting. No other word is acceptable. I don\'t know why thi

Answer 1

I would just use the string equality operator eq instead of a regex.

if( $file_yes_no eq 'yes' ) ...

If I wanted it case insensitive I'd first convert to lowercase with lc.

The problem with your regex is it will happily match any string containing the letters yes sequentially. If you wish, you can match the start and end of the string like this:

if ($file_yes_no =~ m/^yes$/i ) ...

But I personally prefer the first option.

Oh, I missed the first part... Hmmmm. Same deal, if you must use regex.

m/^(yes|no)$/i

Once again I'd be more inclined to avoid regex

Answer 2

Because you're using a regular expression. You could write the regular expression to match the beginning or end of the string ... like this:

while( $file_yes_no !~ /^(yes|no)$/ ) {

The ^ and $ are the beginning and end of the string. Also you can omit the m.

Or you could just check the values explicitly:

while( $file_yes_no ne "yes" and $file_yes_no ne "no" ) {

Also you have a typo in your system command but I'm assuming that was just copying it here. You really shouldn't branch out to a shell for that. Look into File::Copy which gives you a copy function

Answer 3

You should use following Perl regular expression for matching only yes or no (case insensitive):

m/^(yes|no)$/i

For yes only, use:

m/^yes$/i