Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Interpolate Text Not Inside a Certain Tag

by dragonchild (Archbishop)
on Apr 07, 2005 at 17:17 UTC ( #445796=note: print w/replies, xml ) Need Help??


in reply to Interpolate Text Not Inside a Certain Tag

I can't think of any way to do this with simple regexps, . . .

Then don't use a regex. Why does everyone think that all string manipulation should be handled with a regex?!? Use a simple character-by-character parser, noting state as you move through the string.

# UNTESTED !!! my $in_quote = 0; my $in_bold = 0; my $final_string = ''; foreach my $char ( split //, $string ) { if ( $char eq "'" ) { $in_quote = 1 - $in_quote; } else if ( $char eq '*' && !$in_quote ) { $final_string .= '<'; $final_string .= $in_bold ? '/' : ''; $final_string .= 'b>'; $in_bold = 1 - $in_bold; } else { $final_string .= $char; } }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2020-09-19 15:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (114 votes). Check out past polls.

    Notices?