Perl XML :: Twig问题请

概述我在Perl中使用 XML :: Twig库,我不太确定我是如何(或者甚至)我可以做到以下几点.我还没有完成代码,因为我甚至不知道从哪里开始.我真的追求一些想法,我可以(希望)从那里开始…… 所以我想使用XML :: Twig来查找值“This_Is_My_Name”,它是标记“MyClass.Name”的子值.我想我可以做这一部分,但指导将不胜感激. 然后我想得到“MyClass.Code”Li 我在Perl中使用 XML :: Twig库,我不太确定我是如何(或者甚至)我可以做到以下几点.我还没有完成代码,因为我甚至不知道从哪里开始.我真的追求一些想法,我可以(希望)从那里开始……

所以我想使用XML :: Twig来查找值“This_Is_My_name”,它是标记“MyClass.name”的子值.我想我可以做这一部分,但指导将不胜感激.

然后我想得到“MyClass.Code”linkValue号,在下面的例子中是“987654321”.

希望有道理.所以我不知道如何以这种方式走动.

请帮忙 ：)

所以我的XML文档如下,

<Object Class="MyClass" ID="123456789">    <Property name="MyClass.link">        <linkValue>            <ID>2468</ID>        </linkValue>    </Property>    <Property name="MyClass.Code">        <linkValue>            <ID>987654321</ID>        </linkValue>    </Property>    <Property name="MyClass.name">        <StringValue>This_Is_My_name</StringValue>    </Property></Object>

解决方法 您可以使用xpaths来提取这些值. This_Is_My_name的xpath是/Object/Property[@name=\”MyClass.name\”]/StringValue,linkValue的xpath是/Object/Property[@name=\”MyClass.Code\”]/linkValue/ID.代码是：

use XML::Twig;my $twig = XML::Twig->new();# parse the file$twig->parsefile("x.xml");# look for StringValue@nodes=$twig->findnodes('/Object/Property[@name="MyClass.name"]/StringValue');$stringVal=pop(@nodes)->text();print $stringVal."\n";# look for linkValue@nodes=$twig->findnodes('/Object/Property[@name="MyClass.Code"]/linkValue/ID');$linkVal=pop(@nodes)->text();print $linkVal;

总结

以上是内存溢出为你收集整理的Perl XML :: Twig问题请全部内容，希望文章能够帮你解决Perl XML :: Twig问题请所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。