Perlは、私が使用してファイルを開く必要があり

Question

を扱う開いているファイル内のサブセクションをお読みください。 今、whileループの中でそのサブセクションの終わりを見るまで、ファイルのサブセクションを読みたいと思います。 すなわち：ラインで「EndSection」行まで「StartSection」から読み：

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

がどのように私はPerlでこれを正しくプログラムする必要がありますか？

Answer 1

私はこの質問に答えるには、いくつかの方法を考えることができますが、私はflip-flop operator答えを行くよ：

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