Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: loop execution

by jeroenes (Priest)
on Oct 25, 2001 at 01:14 UTC ( #121274=note: print w/ replies, xml ) Need Help??


in reply to loop execution

A quick try:

my $string = join \000, @code; $string =~ s!("\w+")!<b>$1</b>!g; @newcode = split /\000/, $string;
See perlre. The regex should be executed each time in the loop BTW. Are you sure that not all the text is in one item for some reason? Try the g modifier after your regex, see if that cures it.

I also changed the regex a bit. See 7 Stages of Regex Users and Death to Dot Star!. Depending on the complexity of your input, you might be better of with Parse::RecDescent or siblings.

Jeroen
"We are not alone"(FZ)


Comment on Re: loop execution
Download Code
Re: Re: loop execution
by staeryatz (Monk) on Oct 25, 2001 at 08:26 UTC
    Yes the g cured it. I've looked over some of the regex things you've directed me to. Thanks. It was a good read...the learning exepeience kinda lost me in the middle, but now I know how powerful regex's in perl can be.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2015-07-04 03:38 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 (57 votes), past polls