Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: multiple OR match fails

by InfiniteSilence (Curate)
on Jan 31, 2012 at 03:16 UTC ( #950867=note: print w/ replies, xml ) Need Help??

in reply to multiple OR match fails

Would have been nice to include at least some piece of your input file. Your regex looks like it is missing some parentheses or something. Also, if your code is so short you might consider one-lining it:

~linux> perl -ne 'if(m/((FINDINGS|COMPLICATIONS):(.*?)([A-Z]+))/sgm){p +rint qq|$2$3\t$4\n|};' foo7.txt

Celebrate Intellectual Diversity

Comment on Re: multiple OR match fails
Download Code
Replies are listed 'Best First'.
Re^2: multiple OR match fails
by ikegami (Pope) on Jan 31, 2012 at 06:16 UTC
    if (//g) should be while (//g).

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2015-11-28 13:09 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (741 votes), past polls