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

J'ai un ASCII fichier journal avec un peu de contenu, je voudrais extraire. Je n'ai jamais pris le temps d'apprendre le Perl correctement, mais je suppose que c'est un bon outil pour cette tâche.

Le fichier est structuré comme suit:

... 
certaines des ordures ... 
... 
... des ordures DÉBUT 
ce que je veux, c'est 
sur les différents 
lignes 
FIN 
... 
... plus d'ordures ... 
prochain DÉPART 
plus de choses que je veux, encore une fois 
propagation 
par le biais de 
plusieurs lignes 
FIN 
... 
plus d'ordures

Donc, je suis à la recherche d'un moyen d'extraire les lignes entre chaque START et END délimiteur de chaînes.
Comment puis-je faire cela?

Jusqu'à présent, je n'ai trouvé quelques exemples sur la façon d'imprimer une ligne avec la START chaîne, ou d'autres documents qui sont un peu en rapport avec ce que je suis à la recherche d'.

source d'informationauteur jbatista

22

Vous voulez le flip-flop de l'opérateur (mieux connu sous le nom de l'opérateur d'intervalle) ..
```
#!/usr/bin/env perl
use strict;
use warnings;

while (<>) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}
```
Remplacer l'appel à print avec tout ce que vous voulez vraiment faire (par exemple, pousser la ligne dans un tableau, modifier, mettre en forme, peu importe). Je suis next-ing passé les lignes qui ont réellement START ou ENDmais vous ne voudrez pas que le comportement. Voir cet article pour une discussion de cet opérateur, et d'autres utiles Perl variables spéciales.
5

De perlfaq6's réponse à Comment puis-je tirer des lignes entre les deux modèles qui sont eux-mêmes sur des lignes différentes?

Vous pouvez utiliser Perl est un peu exotique .. opérateur (documentées dans perlop):
```
perl -ne 'print if /START/.. /END/' file1 file2 ...
```
Si vous voulez du texte et pas de lignes, vous pouvez utiliser
```
perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ...
```
Mais si vous voulez imbriqués les occurrences de COMMENCER par la FIN, vous allez lancer contre le problème décrit dans la question, dans cette section sur la correspondance de texte équilibré.

Voici un autre exemple d'utilisation ..:
```
while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
# now choose between them
} continue {
    $. = 0 if eof;  # fix $.
}
```
1

Comment puis-je saisir plusieurs lignes après une correspondance de ligne en Perl?

Comment est-ce? Dans celui-ci, à la FIN de la chaîne $^, vous pouvez le changer à la FIN de votre chaîne.

Je suis aussi un débutant, mais les solutions de fournir quelques méthodes... permettez-moi de savoir plus précisément ce que vous voulez qui diffère le lien ci-dessus.

while (<>) {
    chomp;      # strip record separator
    if(/END/) { $f=0;}
    if (/START/) {
        s/.*START//g;
        $f=1;
    }
    print $_ ."\n" if $f;
}

essayer d'écrire un peu de code pour une prochaine fois

1

Après Télémaque réponse, les choses ont commencé à couler. Cela fonctionne comme la solution, je suis à la recherche d', après tout.
1. Je suis d'essayer d'extraire des lignes délimitées par deux chaînes de caractères (un, avec une ligne qui se termine par "CINFILE="; de l'autre, avec une ligne ne contenant qu'un seul "n") sur des lignes séparées, à l'exclusion du séparateur de lignes. Ce que je peux faire avec Télémaque solution.
2. La première ligne a un espace que je veux supprimer. Je suis aussi dont il.
3. Je suis aussi en train d'essayer d'extraire chaque ligne-jeu dans des fichiers séparés.
Cela fonctionne pour moi, bien que le code peut être classé comme laid; c'est parce que je suis actuellement un presque nouveau venu à Perl. De toute façon, va ici:
```
#!/usr/bin/env perl
use strict;
use warnings;

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

while (<>) {
  if (/$start/../$stop/) {
    $filename=sprintf("boletim_%06d.log",$counter);
    open($output,'>>'.$filename) or die $!;
    next if /$start/ || /$stop/;
    if($found == 0) { print $output (split(//))[1]; }
    else { print $output $_; }
    $found=1;
  } else { if($found == 1) { close($output); $counter++; $found=0; } }
}
```
J'espère qu'elle profite à d'autres.
Des acclamations.

Pas trop mal pour venir à partir d'un "virtuel newcommer". Une chose que vous pourriez faire, c'est mettre "$trouve=1" à l'intérieur de la "si($trouve == 0)" bloc de sorte que vous ne faites pas d'affectation à chaque fois entre $de début et de $arrêter.

Autre chose qui est un peu moche, à mon avis, c'est que vous ouvrez le même filehandler chaque fois que vous entrez dans l' $start/$stop-bloc.

Cela montre un moyen de contourner cela:

#!/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                                                           

}

Vous devez vous connecter pour publier un commentaire.