Perl вставить новую строку между каждым} {match

У меня есть текстовый файл, который содержит большое количество объектов JSON, и он не был создан с новыми строками или любым разделителем между объектами.Perl вставить новую строку между каждым} {match

В настоящее время я использую:

perl -e '$/ = "}{"; print "$_\n" while <>' file.txt > out.txt

Но это вызывает искаженные данные, когда файл разбивается на новой строке объекты JSON будет отсутствовать открытие { в качестве новой линии получает ставится после { характера.

Есть ли способ вставить новую замену линии между совпадением }{, таким как }\n{.

Файл довольно большой, поэтому я не могу его вручную сделать.

Не обязательно находиться в Perl, может быть в чем-то более подходящем для задачи.

источник

2016-05-13 Chris Edwards

Не могли бы вы разместить несколько примеров ввода для целей тестирования? –

Также, как часто вам нужно это делать? Будет ли функция редактора кода или плагин делать трюк? Eclipse и Sublime Text могут это сделать; Скорее всего, Notepad ++ и другие. –

Вопрос в том, что действительно? json_xs так не думает ... 'cat json.json | json_xs -f json -t json-pretty' дает 'мусор после объекта JSON, при смещении символов 13 (до" {"bar": "baz"} {"bo": "...") в/home/foo/... ' – simbabque

Не просто print. Подставьте новую линию между } и {. while нуждается в блоке, потому что последний s/// не работает, поэтому s/// && print while <> не работает.

$ cat json.json 
{"foo":"bar"}{"bar":"baz"}{"bo":"shizzle"} 
$ perl -e '$/ = "}{"; while (<>) { s/\}\{$/}\n{/; print; }' json.json 
{"foo":"bar"} 
{"bar":"baz"} 
{"bo":"shizzle"}

источник

2016-05-13 14:42:10 simbabque

$ cat in.json 
{"a":"b","c":"d"}{"e":"f","g":"h"} 

$ perl -MJSON::XS -0777ne' 
    my $parser = JSON::XS->new->utf8; 
    $parser->incr_parse($_); 
    while (my $obj = $parser->incr_parse()) { 
     print($parser->encode($obj), "\n"); 
    } 
' in.json 
{"c":"d","a":"b"} 
{"e":"f","g":"h"}

источник

2016-05-13 16:54:00 ikegami

-1

$ echo '{"a", "b", "c"}{42, "omg", "nyan"}{"no", "please", "stop"}' | perl -e '$/ = "}"; $\ = "}\n"; chomp and print while <>' 
{"a", "b", "c"} 
{42, "omg", "nyan"} 
{"no", "please", "stop"}

источник

2016-05-13 17:21:00 bipll

Это не работает с вложенными объектами, например '{" foo ": {" bar ":" baz "}}'. Кроме того, ваши примеры (например, '{ «a», «b», «c»} ') недействительны JSON. – ThisSuitIsBlackNot

Но он отвечает на вопрос оп, не так ли? – bipll

Нет, если у них нет в своих данных. – ThisSuitIsBlackNot

-1

Вы можете сделать это вручную с помощью поиска и замены инструмента. Пример: Поиск: "} {" Заменить на "}^p {" (в Word^p новая строка)

источник

2016-05-13 20:26:46

Perl вставить новую строку между каждым} {match

ответ

Смежные вопросы