Escaping quote marks

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

Replies are listed 'Best First'.
Re: Escaping quote marks by theorbtwo (Prior) on Jan 29, 2002 at 03:24 UTC
Um, just like you said. Did you mean to say somthing else? If you wanted a more general method, look at URI::Escape. `TACCTGTTTGAGTGTAACAATCATTCGCTCGGTGTATCCATCTTTG ACACAATGAATCTTTGACTCGAACAATCGTTCGGTCGCTCCGACGC`	[reply]
Re: Escaping quote marks by Ido (Hermit) on Jan 29, 2002 at 04:20 UTC
The answer if sort of in the question. But if you meant you want something more genereal: s/(["'`])/'%'.unpack 'H',$1/eg; [download] Or for every not alphanum char (and not quotes only): `s/(\W)/'%'.unpack 'H',$1/eg;` [download] Or perhaps you only want it for chars that can't be in a URI: `s/([^\w;\/?:\@&=\+\$,\[\]\-\.!~\'])/'%'.unpack 'H',$1/eg;` [download]	[reply] [d/l] [select]