I have a list of things to s/// for from a table and we really have no idea what the user will type in. Sometimes it words, sometimes numbers, sometimes things like :) or *smiles* or <smiles>, etc.

If these things are found it's suppose to s/// it with an image tag. It's not substituting html tags with new HTML, it's performing this to plain text and making an image tag out of it.

In the CB it was mentioned to use Q\$var\E , this stopped the errors I had but it's not s/// everything. In fact it only substitutes real words like "cat" or "dog" but nothing like :) or *text*. On top of that it's not always substituting anything, it picks and chooses when it wants to work and what will get substituted.

I think ther is an error in the section where they say what they want to s/// but maybe it's my logic on how to do this.

Can someone see from the example what might be causing these issues? 

my $data = qq(SELECT id, name, location, face FROM emoticons);
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;

my ($id, $name, $location, $face);
$sth->bind_columns(\$id, \$name, \$location, \$face);

foreach my $line (reverse @keep)
{
   my ($username, $message, $date, $ip) = split(/<!!>/, $line);
   while ($sth->fetch)
   {
      $message =~ s|\b\Q$face\E\b| <img src="$location" alt="$name"> |
+gi;
   }
   
   if ($message =~ m|^/me|i)
   {
      $message =~ s|^/me||i;
      print qq(<b><i><a href="#" TITLE="Message sent on $date by $ip">
+$username</a></i></b> <i>$message</i><br>);
   }
   else
   {
      print qq(<b><a href="#" TITLE="Message sent on $date by $ip">$us
+ername</a>:</b> $message<br>);
   }
}

[download]

In reply to working with \Q and \E by coldfingertips

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.