perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From James Smith <...@sanger.ac.uk>
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: http://www.nabble.com/Some-perl-regex-help-tp18188634p18188634.html
> Sent from the mod_perl - General mailing list archive at Nabble.com.
>
>


-- 
 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. 

Mime
View raw message