Re^3: Regexp help, multiple lines


We don't bite newbies here... much
	PerlMonks

Re^3: Regexp help, multiple lines

by CombatSquirrel (Hermit)

on Aug 16, 2004 at 05:34 UTC ( [id://383200]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Regexp help, multiple lines
in thread Regexp help, multiple lines

You might want to use something like this

#!perl

use strict;
use warnings;

my $paragraph = 0;

for (<DATA>) {
   do { 
      ++$paragraph; 
      next; 
      last if $paragraph > 2
   } if substr($_, 5, 1) ne ' ';
   print 
      if $paragraph == 2;
}

__DATA__
     Paragraph1:
         text
     Paragraph2:
         text1
         text2
         text3
     Paragraph3:
         text
[download]

Hope this helped.
CombatSquirrel.

Entropy is the tendency of everything going to hell.

Comment on Re^3: Regexp help, multiple lines Download Code

Replies are listed 'Best First'.

Re^4: Regexp help, multiple lines
by 2ge (Scribe) on Aug 16, 2004 at 08:16 UTC

#!perl

use strict;
use warnings;
my $para = 'Paragraph2:';

while (<DATA>) {
    print if (/^ {5}$para:?\s*$/i ... /^ {5}\S/ and /^ {7}/) 
}

__DATA__
     Paragraph1: 
         text11
     Paragraph2:
         text21
         text22
         text23
     Paragraph3:
         text31
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://383200]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (None)

As of 2024-04-25 01:41 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found