Сортировка строк JSON в файле

Question

Я разбираю несколько строк журнала и преобразую их в JSON. После этого я добавляю этот JSON в файл

my %logContent = (
    sequence_number => 0001, 
    line => "2015-11-27T14:32+05:00 abc.com ssh[2321] fjdklsfjlsdlfksd", 
    line_number => 689, 
); 
open (FILE, ">>", "somefile") or die "Cannot open file for append!"; 
print FILE encode_json \%logContent; 

Так что теперь у меня есть файл, который содержит несколько строк JSON, как например:

{sequence_number: 0001, line: gibberish, ...} 
{sequence_number: 0003, line: gibberish, ...} 
{sequence_number: 0002, line: gibberish, ...} 

Я хотел бы знать, самый простой способ для меня сортируйте строки JSON на основе значения «sequence_number». Другими словами, я хотел бы конечный результат будет что-то вроде:

{sequence_number: 0001, line: gibberish, ...} 
{sequence_number: 0002, line: gibberish, ...} 
{sequence_number: 0003, line: gibberish, ...} 

У меня есть еще один вопрос: Есть ли у вас, ребята/девочки думают, что было бы проще вставить (не добавлять) новую линию JSON в файл в правильной строке, делая окончательный файл отсортированным по умолчанию? Как мне это сделать?

Заранее спасибо.

Answer 1

Ваш файл не является документом JSON. В вашем файле содержится серия документов JSON. Для того, чтобы разобрать, что мы можем использовать инкрементальный анализатор из JSON::XS следующим образом:

use JSON::XS qw(); 

my $file; { local $/; $file = <>; } 

my $json = JSON::XS->utf8->new(); 
my @objs = $json->incr_parse($file); 

@objs = sort { $a->{sequence_number} <=> $b->{sequence_number} } @objs; 

for my $obj (@objs) { 
    print($json->encode($obj), "\n"); 
} 

Если предположить, что каждая строка файла представляет собой отдельный и полный документ в формате JSON (который не гарантировала основан на том, как вы их создания), вы можете использовать следующее. Но это ничего не спасает:

use JSON::XS qw(); 

my $json = JSON::XS->utf8->new(); 

my @objs; 
while (<>) { 
    push @objs, $json->decode($_); 
} 

@objs = sort { $a->{sequence_number} <=> $b->{sequence_number} } @objs; 

for my $obj (@objs) { 
    print($json->encode($obj), "\n"); 
}