Re: Parsing file to pull out sections of text


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Parsing file to pull out sections of text

by artist (Parson)

on Feb 03, 2009 at 20:46 UTC ( [id://741121]=note: print w/replies, xml )

Need Help??

in reply to Parsing file to pull out sections of text

use strict;
use warnings;
my $flag = 0;
my $start = 'd1';
my $end = 'd4';
my @array;
while (<DATA>) {
  chomp;
  if(/$start/){
    $flag = 1;
    @array = ();
  }
  elsif(/$end/) {
    $flag = 0;
    print "@array\n";
  }
  else{
    push @array, $_ if $flag;
  }
}
[download]

--Artist