Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 lurking in the Monastery: (10)
As of 2014-07-22 18:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (126 votes), past polls