Perl lecture du paragraphe à l'intérieur de fichier ouvert

Question

j'ouvrir un fichier en utilisant:

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

Je parse les lignes utilisant des expressions régulières pour obtenir les données que je veux. Maintenant, je veux lire une sous-section d'un fichier jusqu'à ce que je vois la fin de cette sous-section dans ma boucle while. i.e.: la lecture de la ligne « StartSection » jusqu'à ce que « EndSection » par ligne:

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

Comment dois-je programmer correctement en Perl?

Answer 1

Je peux penser à plusieurs façons de répondre à cette question, mais je vais aller avec la flip-flop operator réponse:

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