Comment extraire des lignes entre deux délimiteurs de ligne dans Perl?

while (<>) {
    chomp;      # strip record separator
    if(/END/) { $f=0;}
    if (/START/) {
        s/.*START//g;
        $f=1;
    }
    print $_ ."\n" if $f;
}
try to write some code next time round

Après la réponse de Telemachus, les choses ont commencé à verser. Cela fonctionne comme la solution que je regarde après tout.

1. J'essaie d'extraire des lignes délimitées par deux cordes (une, avec une ligne se terminant par "Cinfile ="; autre, avec une ligne contenant une seule "#") dans des lignes distinctes, à l'exclusion des lignes de délimitation. Ceci que je peux faire avec la solution de Telemachus.
2. La première ligne a un espace que je veux supprimer. Je comprends aussi ça.
3. J'essaie également d'extraire chaque ligne définie dans des fichiers distincts.

   Cela fonctionne pour moi, bien que le code puisse être classé comme laid; C'est parce que je suis actuellement un nouveau venu à Perl. Quoi qu'il en soit, voici: xxx

   J'espère que cela profite également aux autres. Bravo.

de Réponse de Perlfaq6 à Comment puis-je extraire des lignes entre deux motifs qui sont eux-mêmes sur différentes lignes?

Vous pouvez utiliser un opérateur quelque peu exotique de Perl. (documenté dans Perlop): p> xxx pré>

Si vous vouliez du texte et non des lignes, vous utiliseriez P>

while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
# now choose between them
} continue {
    $. = 0 if eof;  # fix $.
}

Pas trop mal pour venir d'un "nouveau-livrer virtuel". Une chose que vous pourriez faire est de mettre le "$ trouvée = 1" à l'intérieur du "if ($ trouvés == 0)" de sorte que vous ne faites pas cette affectation à chaque fois entre $ départ et $ STOP.

Une autre chose qui est un peu laide, à mon avis, est que vous ouvrez le même fichierHandler chaque fois que vous entrez dans le bloc $ start / $ $. P>

Ceci montre un moyen de contourner cela: P >

#!/usr/bin/perl

use strict;
use warnings;

my $start='CINFILE=$';
my $stop='^#$';
my $filename;
my $output;
my $counter=1;
my $found=0;

while (<>) {

    # Find block of lines to extract                                                           
    if( /$start/../$stop/ ) {

        # Start of block                                                                       
        if( /$start/ ) {
            $filename=sprintf("boletim_%06d.log",$counter);
            open($output,'>>'.$filename) or die $!;
        }
        # End of block                                                                         
        elsif ( /$end/ ) {
            close($output);
            $counter++;
            $found = 0;
        }
        # Middle of block                                                                      
        else{
            if($found == 0) {
                print $output (split(/ /))[1];
                $found=1;
            }
            else {
                print $output $_;
            }
        }

    }
    # Find block of lines to extract                                                           

}