Re^2: perl command line prompts

The program doesn't stall anymore after a command line prompt, but it replaces the matched strings even if you enter a "n".

if ($answer == "y") {
      print $MOD $change;
    } else {
      print $MOD $_;
    }
[download]

No matter what character is entered at the command prompt, the program replaces all of the matches. How can I fix this? Thanks.

Comment on Re^2: perl command line prompts Download Code

Replies are listed 'Best First'.
Re^3: perl command line prompts by holli (Abbot) on May 16, 2005 at 20:23 UTC
two ways: `if ($answer eq "y") { #this is a string comparison. == is for numbers +only` [download] or (maybe better) `if ($answer =~ /^y/) {` [download] The latter will also work if the user types "yes", "yup", etc. holli, /regexed monk/	[reply] [d/l] [select]
Re^4: perl command line prompts by Transient (Hermit) on May 16, 2005 at 20:28 UTC
and perhaps even: `if ($answer =~ /^y/i) {` [download] To work with "Yup", "Yes", "yay" and "yak"	[reply] [d/l]
Re^3: perl command line prompts by tlm (Prior) on May 16, 2005 at 21:17 UTC
When reading your original post I missed the bug that holli's and Transient's replies fix. You must have seen this advice a trillion times: always run with `strict` and `warnings`. If you had, perl would have told you what the problem was. the lowliest monk	[reply]
Re^4: perl command line prompts by pccode (Novice) on May 16, 2005 at 21:22 UTC
Thanks to everyone for your help.	[reply]