Perl чтения и печати Линия по линии

Question

Я пытаюсь получить линию по линии распечатки для следующих целей:

My info 


info | info | info | 
------------------------- 
1 | 1 | 
2 
3 
. 
. 
. 

Я использую это код, но он не может печатать, как я ожидал.

use strict; 
use warnings; 

my $file = 'myfile.txt'; 
open my $info, $file or die "Could not open $file: $!"; 

while(my $line = <$info>) { 

    if ($line =~ /info | info | info | /) { 
     print $line;  
     last if $. == 10; 
    } 
} 
close $info; 

Есть что-то в коде?

Ожидаемый результат должен распечатать на CMD

info | info | info | 
------------------------- 
1 | 1 | 
2 
3 
. 
. 
. 

Answer 1

Как насчет:

use strict; 
use warnings; 

my $file = 'myfile.txt'; 
open my $info, $file or die "Could not open $file: $!"; 
my $print = 0; 
while(my $line = <$info>) { 
    $print = 1 if $line =~ /^info/; 
    print $line if $print; 
    last if $. == 10; 
} 
close $info; 

Обновление по любому комментарий:

Если вы хотите, чтобы соответствовать info: ** info, вы должны бежать метасимволы (здесь * характер):

$print = 1 if $line =~ /^info: \*\* info/; 

и, если есть дополнительные места:

$print = 1 if $line =~ /^\s*info:\s*\*\*\s*info/; 

Answer 2

Пожалуйста, попробуйте это.

while(<DATA>) { print $_, unless($_!~m/^$/ && $_!~m/My info/i && $. >= '10'); } 

__DATA__ 
My info 
info | info | info | 
------------------------- 
1 | 1 | 
2 
3 
. 
. 
. 

Answer 3

идиоматических способ сделать это в Perl будет использовать the range operator, широко известный как флип-флоп:

perl -ne'print if /^info/ .. eof' yourfile.txt 

В программе файл это будет be:

use strict; 
use warnings; 

while (<>) { 
    print if /^info/ .. eof; 
}