Comment puis-je lire toutes les lignes entre deux lignes dans un fichier, en utilisant Perl?

Question

J'ai un fichier dont le contenu ressemble à:

pch 
rch 
channel 
cap 
nch 
kappa 
. 
. 
. 
kary 
ban 
.... 

Maintenant, je veux lire mon dossier de NCH à Kary et copier ces lignes seulement dans un autre fichier. Comment puis-je faire cela en Perl?

Answer 1

Vous pouvez l'utiliser dans sed:

sed -n /nch/,/kary/p $file 

Vous pouvez utiliser 'S2P' pour convertir en Perl.

Vous pouvez aussi écrire pur Perl:

while (<>) 
{ 
    next unless /nch/; 
    print; 
    while (<>) 
    { 
     print; 
     last if /kary/; 
    } 
} 

strictement, ces deux solutions imprimer chaque ensemble de lignes de 'NCH' à 'Kary'; Si 'nch' apparaît plus d'une fois, il imprime plus d'un morceau de code. Il est facile de corriger cela, surtout dans la pure Perl (solution «sed» laissée comme un exercice pour le lecteur).

OUTER: 
while (<>) 
{ 
    next unless /nch/; 
    print; 
    while (<>) 
    { 
     print; 
     last OUTER if /kary/; 
    } 
} 

En outre, les solutions recherchent « NCH » et « Kary » dans le cadre de la ligne - non pas pour la ligne. Si vous avez besoin d'eux pour correspondre à la ligne entière, utilisez '/^nch$/' etc comme regex.

Answer 2

Quelque chose comme:

$filter = 0; 
while (<>) { 
    chomp; 
    $filter = 1 if (! $filter && /^nch$/); 
    $filter = 0 if ($filter && /^ban$/); 
    print($_, "\n") if ($filter); 
} 

devrait fonctionner.

Answer 3

si vous ne souhaitez que lire un bloc, dans gawk

gawk '/kary/&&f{print;exit}/nch/{f=1}f' file 

en Perl

perl -lne '$f && /kary/ && print && exit;$f=1 if/nch/; $f && print' file 

ou

while (<>) { 
    chomp; 
    if ($f && /kary/) { 
     print $_."\n"; 
     last; 
    } 
    if (/nch/) { $f = 1; } 
    print $_ ."\n" if $f; 
} 

Answer 4

Si je comprends bien votre question, cela est assez simple .

#!perl -w 
    use strict; 
    use autodie; 

    open my $in,'<',"File1.txt"; 
    open my $out,'>',"File2.txt"; 

    while(<$in>){ 
    print $out $_ if /^nch/ .. /^kary/; 
    } 

Answer 5

De la réponse de perlfaq6 à How can I pull out lines between two patterns that are themselves on different lines?

---

Vous pouvez utiliser un peu exotique .. opérateur de Perl (documenté dans perlop):

perl -ne 'print if /START/ .. /END/' file1 file2 ... 

Si vous voulez du texte et non les lignes , vous utiliseriez

perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ... 

Toutefois, si vous souhaitez que les occurrences imbriquées de START dans END soient appliquées, vous rencontrerez le problème décrit dans la question de cette section sur la correspondance du texte équilibré.

Voici un autre exemple d'utilisation ..:

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