我有一个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()');
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。