Perl read subsection inside open file handle

Question

I have open a file using:

open (FH, "<".$File::Find::name) or die "cannot open file \"".$File::Find::name." \"!";
while (<FH>) {
  ...my code...  
}

I parse the lines using Regular expressions to get the data I want. Now I want to read a subsection of a file until I see the ending of that subsection inside my while-loop. i.e: reading from "StartSection" until "EndSection" line by line:

open (FH, "<".$File::Find::name) or die "cannot open file 
\"".$File::Find::name." \"!";
while (<FH>) {
  ...my code...
  if (/^StartSection$/) {
    while (<FH> !~ /^EndSection) {
      ... more code....
    }
  }
}

How must I program this correctly in Perl?

The words are "Perl" and "file handle", not "PERL" and "FileHandler". — ikegami, Aug 18 '17 at 17:27

mob · Accepted Answer · 2017-08-18T14:58:26.533

2

I can think of several ways to answer this question, but I'll go with the flip-flop operator answer:

while (<FH>) {
   if (/^StartSection$/ .. /^EndSection/) {
       ... special code ...
   } else {
       ... regular code ...
   }
}

edited Aug 18 '17 at 14:58

answered Aug 18 '17 at 14:08

mob

117,087
18
149
283

How will the code read the next line(S) of inside the if section? – Laurent Zotto Aug 18 '17 at 14:55

Perl read subsection inside open file handle

1 Answers1