Re: Regexp help, multiple lines

In this case you might want to use \d in your RegEx to match any digit. You probably also want to make that star non-greedy (add a ? to it).
A common idiom for a problem like this would be the following:

#!perl

use strict;
use warnings;

my $i = 0;

for (<DATA>) {
   print if /Paragraph2/ ... /Paragraph/;
}

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

Also, if you have fixed-width fields, consider using substr or unpack.
Hope this helped.
CombatSquirrel.

Entropy is the tendency of everything going to hell.

Comment on Re: Regexp help, multiple lines Select or Download Code

Replies are listed 'Best First'.
Re^2: Regexp help, multiple lines by 2ge (Scribe) on Aug 15, 2004 at 22:42 UTC
Hi! thanks for really fast answers, I had some not complete informations in my question, so I updated it. Maybe I should first collect all 'Paragraph' names into array and after them create such regexp ? I did know .. and ... operators, but it is nearly same as (.*), it doesn't help here. My regexp should looks like `/^ {5}\S[^:]+:$\s+([^ {5}\S])/ism` but ofcourse `'[^ {5}\S]'` doesn't work, we know why...:(	[reply] [d/l] [select]
Re^3: Regexp help, multiple lines by CombatSquirrel (Hermit) on Aug 16, 2004 at 05:34 UTC
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.	[reply] [d/l]
Re^4: Regexp help, multiple lines by 2ge (Scribe) on Aug 16, 2004 at 08:16 UTC
here is solution, which help me, combining all of your answers, I know name of start Paragraph, but don't know name of end Paragraph, so...THANKS (sorry for mess in replies): `#!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]