有没有可能的方法将 XML::Twig 对象转换为 XML::XPath 对象？

Question

我长期使用XML::XPath来解析xml，现在情况已经到了修改属性值的时候了。

xml 在文件中可用，它与此非常相似。

<AppName>
    <Action AllDay='1'StartRace='1'/>
    <StartPoint AM_PM='AM' Hours='09' Mins='30'/>
    <EndPoint AM_PM='PM' Hours='06' Mins='30'/>
</AppName>

我编写了一个 perl 脚本来更改 StartPoint 标记的小时数，

use strict;
use warnings;
use XML::Twig;

my $fileName = 'Conf.xml';

my $twig = XML::Twig->new(
    twig_roots => { StartPoint => \&ReplaceAtriValue },
    twig_print_outside_roots => 1, );

sub ReplaceAtriValue {

    my ($twig, $startPoint) = @_;
    if ( '09' eq $startPoint->att('Hours') )

    {
        $startPoint->set_att( Hours => '12');
    }
    $startPoint->print(); }

$twig->parsefile($fileName);

我知道如何成功地将 09 替换为 12，现在 $twig 具有 xml 对象。如果我将此对象 ($twig) 发送到使用 XML::XPath 解析 xml 的 SetWindow.pm，则无法识别该对象。是否有任何可能的方法将 XML::Twig 对象转换为 XML::XPath 对象，以便 XML::XPath 解析$twig 对象。

实际上，我已经使用 XML::XPath 很长时间了，因此我必须将 XML::XPath 对象发送到我自己的所有 *.pm，例如 SetWindow.pm，位于同时我需要在发送给我自己的 PM 之前更改标准 xml 的属性值。

提前致谢。

非常感谢任何帮助！

飞行员

Answer 1

XML::Xpath 解析 XML，因此您应该将其发送给它，无论是在文件中还是作为字符串。

现在，如果您想变得聪明，并且您想要的只是从树枝中提取信息，您可以使用 XML::Twig::XPath 而不是 XML::Twig （::Twig::XPath 是 XML:: 的一部分twig 分布），并且 twig 对象及其元素将为 XML::XPath 获得足够的 DOM 式方法，以便能够对它们运行查询。但我不确定这是否值得。

我能想到的替代方法：

• 为什么不直接使用 XML::XPath 更改属性？ getAttributeNodes 和 setValue 的组合应该可以做到这一点，
• 用 XML::LibXML 替换 XML::XPath。界面非常相似（DOM + XPath），并且更好的模块
• 使用 XML::Twig::XPath 在 XML::Twig 中获得完整的 XPath 支持