Пропуск определенного количества строк после сопоставления слова PERL

Question

Я хочу, чтобы соответствовать определенной строке в файле, после сопоставления конкретной строки я хочу пропустить 5 строк и напечатать следующий. Например.

Lecture  <==(I want to match lecture) 
1 
2 
3 
4 
5 
Hello <==(And then i want to print this line) 

Я попытался сделать это, но это не будет работать:

if ($line =~ m/(Lecture)/) { 
    $1 = $currentLine; 
    if ($currentLine == $1+6) { 
     print $currentLine; 
    } 
} 

Что я делаю неправильно?

Answer 1

Вы можете использовать переменную $., чтобы отслеживать номер строки, в которой произошло совпадение, и пропускать нужное количество строк. Высказывание:

perl -ne '/^Lecture/ && do {$l=$.} ; $.==$l+6 && print' inputfile 

напечатает 6-й линии после матча (в этом случае производят Hello).

Answer 2

#/usr/bin/perl 
use strict; 
use warnings; 

open my $fh, '<', 'data.txt' or die "can't open data.txt: $!"; 

while (my $line = <$fh>) { 
    if ($line =~ /Lecture/) { #if a match is found ... 
     <$fh> foreach 1 .. 5; # throw away next five lines from iterator 
     my $next_line = <$fh>; # assign next one 
     print $next_line;  # and print it 
    } 
}