Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: reg. expr. multiple substitutions

by Eliya (Vicar)
on May 17, 2012 at 14:06 UTC ( #971064=note: print w/ replies, xml ) Need Help??


in reply to reg. expr. multiple substitutions

You could alias $_ to $str, which would allow you to at least get rid of the repetitive "$str =~ " part in every line.

Other than that, you do have to declare somehow what to replace with what, and this get can hardly get any more compact than a list of s/.../.../ (unless there is some pattern or regularity in the tag-substitution pairs that would allow you generate them automatically — but I suppose the ones given are not the real ones).

for ($str) { s/tag1/subst1/; s/tag2/subst2/; s/tag3/subst3/; ... s/tag49/subst49/; }


Comment on Re: reg. expr. multiple substitutions
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://971064]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2015-07-04 08:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls