使用 perl 将 XML 转换为 JSON

Question

我正在使用 perl 来转换 XML 文件 JSON。我能够编写将输入 XML 文件转换为 Json 格式的代码。

这里是示例 xml：

<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
   <Person SchemaVersion="1.0.8">
      <ID>0</ID>

      <Home ID="ABC-XYZ" State="Unknown">
         <Location>
            <SiteName></SiteName>
            <Number>62</Number>
            <MaxSize>0</MaxSize>
            <Comment></Comment>
         </Location>

         <Laptop>
             <FileName>/usr/temp/RPM_020515_.tar.gz</FileName>
         </Laptop>
    </Home>
  </Person>

进行 json 转换的示例 perl 代码：

#!/usr/bin/perl

use JSON;
use XML::Simple;

# Create the object of XML Simple
my $xmlSimple = new XML::Simple(KeepRoot   => 1);

# Load the xml file in object
my $dataXML = $xmlSimple->XMLin("input/path/to/above/XMLFILE");

# use encode json function to convert xml object in json.
my $jsonString = encode_json($dataXML);

# finally print json
print $jsonString;

输出 JSON 值：

{
    "Person": {
       "ID": "0", 
       "SchemaVersion": "1.0.8", 
       "Home": {
          "ID": "ABC-XYZ", 

          "Laptop": {
             "FileName": "/usr/temp/RPM_020515_.tar.gz"
           }, 

          "Location": {
              "Number": "62", 
              "MaxSize": "0", 
              "Comment": { }, 
              "SiteName": { }
           }, 

          "State": "Unknown"
       }
   }
}

以上代码运行良好。

我的问题是，这就是我真正陷入困境的地方。

除了 JSON 转换之外，我还需要做一件事，即检查 XML 中的元素“FileName”是否为空。如果它也没有提取它的价值。

So output will be two things:
1. XML To JSON convert ( working fine )
2. Along with point 1. extract the value of nested element in XML        
   "FileName". I need that for some business logic need in next step.

一些 perl 专家可以在这里帮助我，并建议我如何在我当前的 perl 代码中做到这一点。

感谢您提前提供帮助。 这是我的第一个 perl 脚本，如果这个问题太简单了，请原谅。

尝试阅读 perl 文档，但没有太大帮助。

注意：我试图只使用 perl 内置库而不是任何新的第三方库，这就是我使用 XML::Simple 的原因。它的生产代码限制（非常糟糕的边界）。我希望 XML::Simple 或 JSON 中存在这方面的内容。

Answer 1

正如XML::Simple 文档所指出的，它将 XML 'slurp' 成类似于输入 XML 的数据结构。因此，要弄清楚 XML 的内容，只需将其视为可能是的哈希引用：

if ($dataXML->{Person}{Home}{ID} eq 'foo') {
   # Some action
   ...
}

Answer 2

您应该使用XML::LibXML 而不是 XML::Simple。然后使用xpath查询每个文档。我会看一下XML::XML2JSON 的代码，看看它是否能很好地解决这个问题……