Re: fastest way to substitute

[Paul Tremblay]

On Sat, Jul 27, 2002 at 02:40:52PM -0700, John W. Krahn wrote:
> 
>   s[([&<>]|(?<=\\)$rx)][$rep{$1}]go;
> 

John, this doesn't work. 

My representative line is:


\ldblquote \rdblquote & < > \par

My code is:


my %rep = qw(
                &               &amp;
                >               &gt;
                <               &lt;
                ldblquote       <lt_quote/>
                rdblquote       <rt_quote/>
                
                );      

my $rx = join "|", map quotemeta, keys %rep;

s[([&<>]|(?<=\\)$rx)][$rep{$1}]go;

And the result is:

\<lt_quote/> \<rt_quote/> &amp; &lt; &gt; \par

I'm getting the backslashes in front of my XML tags. I need 

<lt_quote/> <rt_quote/> &amp; &lt; &gt; \par

I've tried a number of different variations with no success. Perhaps I
will need two lines of substitution in my script, one for backslashed
characters, and one for characters that are not backslashed?

Thanks

Paul

-- 

************************
*Paul Tremblay         *
*[EMAIL PROTECTED]*
************************

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]