Grabbing Chunks данных из файла в Perl

Question

Я просматриваю журнал ошибок для ключевого слова «предупреждение». Когда я нахожу это, есть конкретный случай предупреждения, который закончит информацию, относящуюся к предупреждению, только с символом новой строки. То, что я хочу сделать, - это проверить этот журнал ошибок, найти предупреждение по ключевому слову, продолжать пропускать файл, пока я не найду ТОЛЬКО символ новой строки, а затем, как только я его найду, проанализирую этот фрагмент и распечатаю его.

формат будет что-то вроде этого:

Warning! blah 
blah 
blah 
orange 

Warning! blah 
blah 
red 
blah 

Warning! 
blah 
blah 
blah 
yellow 

Вот мой код до сих пор: использования строго; использовать предупреждения;

my $file = $ARGV[0]; 
my $count = 0; 

open(LOG, "<",$file) or die "cannot open < input: $!"; 

my $line = <LOG>; 
while($line ne "") 
{ 
if($line =~ /warning/i) 
{ 
    while($line !~/\A\n\z/) 
    { 
     if($line =~ /red/ || $line =~ /yellow/ ||$line =~ /black/) 
     { 
      $count++; 
     } 
     print($line); 
     $line = <LOG>; 
    } 
    print("Just finished a chunk.\n"); 
} 

$line = <LOG>; 
} 
print($fix, "\n"); 

Однако, это бесконечный цикл, который постоянно вызывает ошибки, и я не знаю почему.

Answer 1

Вы можете прочитать файл на «куски», а не по линии

local $/ = "\n\n"; 
while(my $chunk = <LOG>) { 
    .. 
    print("Just finished a chunk.\n"); 
} 

Answer 2

Вы войти в бесконечный цикл, потому что, когда вы дойдете до конца файла и $line не определено, выражение

$line !~/\A\n\z/ 

все еще верно. Вы можете попробовать что-то вроде

... 
    while (defined($line) && $line !~ /\A\n\z/) { 
     ... 

вместо этого.