如何解析Haskell中的Exiftool JSON输出示例 [英] Example of how to parse exiftool JSON output in Haskell

问题描述

我无法理解任何文档。有人可以提供一个例子，说明如何使用Haskell模块 Text.JSON 来解析以下缩短的 exiftool 输出。使用命令 exiftool -G -j 生成数据。

  [{
SourceFile：DSC00690.JPG，
ExifTool：ExifToolVersion：7.82，
File：FileName：DSC00690.JPG， 
Composite：LightValue：11.6 
}，
 {
SourceFile：DSC00693.JPG，
ExifTool：ExifToolVersion：7.82，
File：FileName：DSC00693.JPG，
EXIF：Compression：JPEG（旧式），
EXIF：ThumbnailLength：4817，
 Composite：LightValue：13.0 
}，
 {
SourceFile：DSC00694.JPG，
ExifTool：ExifToolVersion：7.82，
File： FileName：DSC00694.JPG，
Composite：LightValue：3.7 
}] 
  

（假设你的数据是在text.json中）：

  Prelude Text.JSON> s<  -  readFiletest.json
 Prelude Text.JSON> decode s :: Result JSValue 
 Ok（JSArray [JSObject（JSONObject {fromJSObject = [（SourceFile，JSString（JSONString {fromJSString =DSC00690.JPG}）），（ExifTool：ExifToolVersion，JSRational False （391％50）），（File：FileName，JSString（JSONString {fromJSString =DSC00690.JPG}）），（Composite：LightValue，JSRational False（58％5））]}），JSObject JSONObject {fromJSObject = [（SourceFile，JSString（JSONString {fromJSString =DSC00693.JPG}）），（ExifTool：ExifToolVersion，JSRational False（391％50）），（File：FileName JSONString {fromJSString =DSC00693.JPG}）），（EXIF：Compression，JSString（JSONString {fromJSString =JPEG（old-style）}）），（EXIF：ThumbnailLength，JSRational False（4817％ 1）），（Composite：LightValue，JSRational False（13％1））]}），JSObject（JSONObject {fromJSObject = [（SourceFile，JSString（JSONString {fromJSString =DSC00694.JPG}）））， （ExifTool：ExifToolVersion，JSRational False（391％50）），（File：FileName，JSString（JSONString {fromJSString =DSC00694.JPG}）），（Compo网站：LightValue，JSRational False（37％10））]}）]）
  

你是一个通用的json Haskell数据类型。

下一步将为你的数据定义一个自定义的Haskell数据类型，并为它写一个JSON实例，在上面的JSValue和你的类型之间。

I can't make sense of any of the documentation. Can someone please provide an example of how I can parse the following shortened exiftool output using the Haskell module Text.JSON? The data is generating using the command exiftool -G -j <files.jpg>.

[{
  "SourceFile": "DSC00690.JPG",
  "ExifTool:ExifToolVersion": 7.82,
  "File:FileName": "DSC00690.JPG",
  "Composite:LightValue": 11.6
},
{
  "SourceFile": "DSC00693.JPG",
  "ExifTool:ExifToolVersion": 7.82,
  "File:FileName": "DSC00693.JPG",
  "EXIF:Compression": "JPEG (old-style)",
  "EXIF:ThumbnailLength": 4817,
  "Composite:LightValue": 13.0
},
{
  "SourceFile": "DSC00694.JPG",
  "ExifTool:ExifToolVersion": 7.82,
  "File:FileName": "DSC00694.JPG",
  "Composite:LightValue": 3.7
}]

解决方案

Well, the easiest way is to get back a JSValue from the json package, like so (assuming your data is in text.json):

Prelude Text.JSON> s <- readFile "test.json"
Prelude Text.JSON> decode s :: Result JSValue
Ok (JSArray [JSObject (JSONObject {fromJSObject = [("SourceFile",JSString (JSONString {fromJSString = "DSC00690.JPG"})),("ExifTool:ExifToolVersion",JSRational False (391 % 50)),("File:FileName",JSString (JSONString {fromJSString = "DSC00690.JPG"})),("Composite:LightValue",JSRational False (58 % 5))]}),JSObject (JSONObject {fromJSObject = [("SourceFile",JSString (JSONString {fromJSString = "DSC00693.JPG"})),("ExifTool:ExifToolVersion",JSRational False (391 % 50)),("File:FileName",JSString (JSONString {fromJSString = "DSC00693.JPG"})),("EXIF:Compression",JSString (JSONString {fromJSString = "JPEG (old-style)"})),("EXIF:ThumbnailLength",JSRational False (4817 % 1)),("Composite:LightValue",JSRational False (13 % 1))]}),JSObject (JSONObject {fromJSObject = [("SourceFile",JSString (JSONString {fromJSString = "DSC00694.JPG"})),("ExifTool:ExifToolVersion",JSRational False (391 % 50)),("File:FileName",JSString (JSONString {fromJSString = "DSC00694.JPG"})),("Composite:LightValue",JSRational False (37 % 10))]})])

this just gives you a generic json Haskell data type.

The next step will be to define a custom Haskell data type for your data, and write an instance of JSON for that, that converts between JSValue's as above, and your type.

这篇关于如何解析Haskell中的Exiftool JSON输出示例的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！