search and replace confusion

jonnyfolk has asked for the wisdom of the Perl Monks concerning the following question:


if (lc($Message) =~ /^db /) {
print "Content-type:text/html\n\n";
print "c=$Message<br>\n";
  $Message = s/^db //;
  $Message = s/^Db //;
  $Message = s/^dB //;
  $Message = s/^DB //;
print "m=$Message";
exit;
}
[download]

output is:

c=Db test4
m=
[download]

My aim is to remove the initial Db but in fact everything is removed, it would seem.

Why isn't it doing what I expect?

Comment on search and replace confusion Select or Download Code

Replies are listed 'Best First'.
Re: search and replace confusion by davorg (Chancellor) on Nov 08, 2006 at 11:53 UTC
Your input contains: `<!-monthstart--><option value="01">January </option>\n` [download] Your substitution looks for: `s/<!--monthstart-->.<!--monthend-->/MONTHS<br>\n/s;` [download] Spot the discrepancy :) -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club."* -- Chip Salzenberg	[reply] [d/l] [select]
Re^2: search and replace confusion by jonnyfolk (Vicar) on Nov 08, 2006 at 12:07 UTC
Aah, thanks very much. More embarrassing is the amount of time I've spent staring at it trying to find my mistake!! :)	[reply]
Re: search and replace confusion by reneeb (Chaplain) on Nov 08, 2006 at 11:56 UTC
You're searching for <!--monthstart, but in $copyindex there is just a <!-monthstart	[reply]