xml - 将代码从使用 XML::XPath 更改为 XML::LibXML

Question

我有一个运行良好的 perl 脚本。脚本将 xml 文件作为输入并返回相同的 JSON 格式以及 XML 文件中特定元素的值。

#!/usr/bin/perl
use strict;
use warnings;
use JSON;
use XML::Simple;
use XML::XPath;

my $xmlFileName = "jsonconversion.xml";
my $fileNameElement = "//FileName";

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

# Load the xml file in object
$dataXML = $xmlSimple->XMLin($xmlFileName);

#Searching value using xpath
my $xp = XML::XPath->new(filename => $xmlFileName);
my $filename = $xp->find($fileNameElement);

my $ElementValue = "";

#Fetching value of 'FileName' in 'fileNameValue' variable
if( length $filename ) {
   foreach my $node ($filename->get_nodelist) {
     $fileNameValue = $node->string_value;
     last;
 }
}

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

#Printing fileNameValue
print "\n\nFile Name is: ".$fileNameValue;

由于公司的某些限制，我不允许使用 XML::Xpath perl 模块，我可以使用 XML:LibXML。我试图理解如何通过用 XML:LibXML perl 模块替换 XML::Xpath 来使我当前的代码仍然有效。我也引用了 perl 文档和关于 stackoverflow 的旧帖子。

这是一个示例解决方案:

my $dom = XML::LibXML->new->parse_file('data.xml');
for my $node ($dom->findnodes('/category/event/@name')) {
   my value = $node->toString;
}

但此代码涉及完全更改我的原始代码。

我的问题是如何使用 XML:LibXML perl 模块替换 perl 模块 XML:XPath 并进行最小的更改。我不想为了使用现有的库而重新编写整个代码。

示例 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>

如果有任何建议，请告诉我。

谢谢

注意:在编写当前 perl 模块和理解功能方面，我从堆栈溢出的人们那里得到了很多帮助。

Answer 1

这首先像您的代码一样:

use XML::LibXML qw( );
my $dom = XML::LibXML->new->parse_file('data.xml');
my ($file_name_node) = $dom->findnodes('//FileName');
my $file_name = $file_name_node ? $file_name_node->textContent() : '';

或者如果只能有一个，

use XML::LibXML qw( );
my $dom = XML::LibXML->new->parse_file('data.xml');
my $file_name = $dom->findvalue('//FileName/text()');