У меня есть простой файл журнала, который очень грязный, и мне нужно, чтобы он был аккуратным. Файл содержит заголовки журналов, но все они перемешаны вместе. Поэтому мне нужно отсортировать файлы журнала в соответствии с заголовками журнала. Статического количества строк нет - это означает, что для каждого заголовка текстового файла не существует фиксированного количества строк. И я использую perl grep для сортировки заголовков.

Файлы журнала идут примерно так:

Car LogFile Header
<text>
<text>
<text>
Car LogFile Header
<text>
Car LogFile Header
<and so forth>

Я сделал / искал простой алгоритм, но, похоже, он не работает. Может кто-нибудь, пожалуйста, направить меня? Спасибо!

#!/usr/bin/perl

#use 5.010; # must be present to import the new 5.10 functions, notice 
#that it is 5.010 not 5.10


my $srce = "./root/Desktop/logs/Default.log";
my $string1 = "Car LogFile Header";
open(FH, $srce);
my @buf = <FH>;
close(FH);
my @lines = grep (/$string1/, @buffer);

После выполнения кода результат не отображается на терминале. Есть идеи?