perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From James Smith <>
Subject Re: Some perl regex help
Date Mon, 30 Jun 2008 07:24:05 GMT

On Sun, 29 Jun 2008, Alexander Burrows wrote:

> Hello again all. Been a while since I've posted here but needed some help on
> a regex I was trying to write.
> $line =~ tr/(\(|\)|<|>)/(\&#40;|\&#41;|\&lt;|\&gt;)/g;

Simplest approach is to make a hash of the substitutions and use
an "e" executed regexp

my %hash = ('('=>'&#40;',')'=>'&#41;','<'=>'&lt;','>'=>'&gt;');

    $line =~ s/([()<>])/$hash{$1}/eg;

> This does not work at all in perl so I found so I replaced the tr with s and
> the search part works as expected but the replace does not. I've been trying
> to read around forums and regex documents for perl but they seem unorganized
> and cryptic. So any help would be appreciated.
> -Alexander
> -- 
> View this message in context:
> Sent from the mod_perl - General mailing list archive at

 The Wellcome Trust Sanger Institute is operated by Genome Research 
 Limited, a charity registered in England with number 1021457 and a 
 company registered in England with number 2742969, whose registered 
 office is 215 Euston Road, London, NW1 2BE. 

View raw message