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

2019-11-20 19:01:34 阅读：216 来源： 互联网

我有一个perl脚本,工作正常.脚本将xml文件作为输入,并返回JSON格式,该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 :: Xpath替换为XML：LibXML perl模块使我的当前代码继续工作.我也参考了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模块并了解其功能.

解决方法:

这是第一个像您的代码一样的代码：

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()');

标签：xpath,linux,xml,perl
来源： https://codeday.me/bug/20191120/2046074.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

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