escape single quotes in a hash

[CherylD]

I have a hash of values that replace holders within an rtf document. when one of the hash values ($dict{COMMENTS}) contains a single quote the whole value is not placed on the document.

This is what is being done:
foreach $key(%dict) {
$dict{$key}=~ s/\*/\\\*/g;
$dict{$key}=~ s/\'/\\\'/g; #THIS DOENS'T SEEM TO BE DOING ANYTHIGN
$text =~ s/\%$key\%/$dict{$key}/g;
}

Any suggestions?

 

[icrf]

Don't know if it'll make any difference, but you could try this:

foreach $key(%dict) {
  $text =~ s/\%\A$key\Z\%/$dict{$key}/g;
}

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light

 

[icrf]

Actually, looking at it again, I'm pretty sure that's not going to do anything helpful. You say $key is 'COMMENTS' when it fails, so escaping it in the regex is pointless.

Can you say what's in $dict{COMMENTS} and maybe the section of $text you expect to change and how it doesn't?

Also, how are you editing the RTF document? Using a module, like RTF:ocument or something I hope?

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light