Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Complex regex with negated group

by december (Pilgrim)
on Mar 27, 2011 at 00:47 UTC ( [id://895718]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #foreach ($strMess =~ /.*?\n(?=\S)/smg) {
    #foreach ($strMess =~ /.*?\n(?=\S|\s+[^\n]+?:\n\S)/smg) {
    ...
       s/\n\s*/ /mg;
        push(@arr, $_);
    }
    
  2. or download this
    Into the little hill
    2-osainen lyyrinen tarina sopraanolle, altolle seka viidelletoista
    ...
    09  9. Another very long stupid song title to be used as yet another
        dumb example /6:66.
    10  10. Last fictive song title /6:66.
    
  3. or download this
      1| Into the little hill
      2| 2-osainen lyyrinen tarina sopraanolle, altolle seka viidelletoist
    +a
    ...
     14|     3. OSA BLAH BLAH BLAH BLAH BLAH BLAH BLAH BLAH BLAH BLAH BLAH
    + BLAH BLAH BLAH (09-10) /14:14:
     15| 09  9. Another very long stupid song title to be used as yet anot
    +her dumb example /6:66.
     16| 10  10. Last fictive song title /6:66.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://895718]
Approved by GrandFather
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2024-04-19 02:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found