Replacing Text 2

[progolf069]

Greetings,

I have a quick, appears to be easy, question about replacing text in a string. I am trying to display on a web page the registered trademark, trademark, and copyright symbols out of a Postgresql database. These data items are being representated in the data like this:

Trademark: (tm) or (TM)
Copyright: (c) or (C)
Registred Trademark: (r) or (R)

An example record would be something like this:
American Tourister(r) Forester(tm) II Collection - Ultravalet(r) Garment.

Anywhere there is a (r) or a (tm) in the above statement, should be replaced with the following text:

Trademark: <SMALL><SUP>TM</SUP></SMALL>
Copyright: & #169
Registred Trademark: & #174

-+-+-+-+-+-+-+-+-+

I have tried using a simple replace feature as followed, but I am am getting these reults

$item1 = 'American Tourister(r) Forester(tm) II Collection - Ultravalet(r) Garment';

$item1 =~ s/(tm)/<SMALL><SUP>TM</SUP></SMALL>/;
$item1 =~ s/(r)/& #174/;
$item1 =~ s/(c)/& #169/;

print &quot;$item1&quot;;

Result: Ame®i©an Tourister(r) Forester(tm) II Collection - Ultravalet(r) Garment

If anybody can assist me in figuring out how to code this, I would be very appreciative. Thanks for any replys that you may give.

God Bless You,
Ian Wickline

 

[dchoulette]

$item1 =~ s/\(tm\)/<SMALL><SUP>TM</SUP></SMALL>/g;
$item1 =~ s/\(r\)/& #174/g;
$item1 =~ s/\(c\)/& #169/g;

You look for true parenthesis in the string (not the regular expression grouping parenthesis) so you have to protect '(' and ')' with '\'.
You want to change all occurences so add the global 'g' modifier at the end.

 

[justice41]

You will need to escape the '/' in the end tag or use a different s/// delimiter.

$item1 =~ s/\(tm\)/<SMALL><SUP>TM<\/SUP><\/SMALL>/g;
# Or
$item1 =~ s!\(tm\)!<SMALL><SUP>TM</SUP></SMALL>!g;

jaa

 

[dchoulette]

Good point, justice41. I miss this one.