Re: regex/extracting whole lines


Do you know where your variables are?
	PerlMonks

Re: regex/extracting whole lines

by CubicSpline (Friar)

on Oct 19, 2001 at 16:49 UTC ( [id://119965]=note: print w/replies, xml )

Need Help??

in reply to regex/extracting whole lines

Is something like this what you're after:

use strict;

open IN, "filename" || die "Couldn't open file!";

my $line,$i;
my $n = 5; #how many lines after the **line** to get
my $emailtext = "";

while( chomp($line = <IN>) )
{
   #if line has ** in it, then get next n lines
   if( $line =~ /\*\*/)
   {
      for my $i (1..$n)
      {
         $emailtext .= <IN>;
      }
      #send your email here
   }
}
[download]

HTH
~CS