次のテキストファイルがあります。
{
"mimeType": "web",
"body": "adsfdf",
"data_source_name": "abc",
"format": "web",
"url": "http://google.com/",
"urls": "http://google.com/",
"lastModified": "123123",
"title": "Google",
"docdatetime_dt": "1231234",
"wfbdomain": "google.com",
"id": "http://google.com",
},
{
"mimeType": "web",
"body": "adsfdf",
"data_source_name": "zdf",
"format": "web",
"url": "http://facebook.com/",
"urls": "http://facebook.com/",
"lastModified": "123123",
"title": "Facebook",
"docdatetime_dt": "1231234",
"wfbdomain": "facebook.com",
"id": "http://facebook.com",
},
{
"mimeType": "web",
"body": "adsfdf",
"format": "web",
"url": "http://twitter.com/",
"urls": "http://twitter.com/",
"lastModified": "123123",
"title": "Twitter",
"docdatetime_dt": "1231234",
"wfbdomain": "twitter.com",
"id": "http://twitter.com",
}
上記のブロックで3番目の項目を見るとわかります。「データソース名」: ....すべて書いた。非常に大きなファイルがあり、この特定のファイルが欠落していることを確認し、そうであれば印刷/エコーしたいと思います。
sedを試してみましたが、正しく使用する方法がわかりません。
sedや他のものを使用できますか?
ベストアンサー1
GNUを使用すると、レコード区切り文字awk
として使用}, {
し、含まれていないレコードを印刷できます"data_source_name":
。
gawk -v RS='}\\s*,\\s*{' '!/"data_source_name":/'
あるいは、使用しているように見えるjson型にデコードすることもできますJSON::PP
。
perl -MJSON::PP -l -0777 -ne '
$j = JSON::PP->new->relaxed->pretty;
print $j->encode($_) for grep {!defined($_->{data_source_name})}
@{$j->decode("[$_]")}' < file.json