时间戳

首页 > 解决方案 > 在 Perl 中删除具有属性的 XML 节点

xml - 在 Perl 中删除具有属性的 XML 节点

问题描述

我是 Perl 的新手，我有很多XML具有相同结构的文件：

<reult>
    <test name="test1">
        <meassage type="passed">
            <description><![CDATA[  ===>> passed is here]]></description>
        </meassage>
        <check name="" line="150">
            <result type="text"></result>
            <description type="DETAILED"></description>
        </check>
        <meassage type="error">
            <description><![CDATA[  ===>> error is here]]></description>
        </meassage>
        <meassage type="passed">
            <description><![CDATA[  ===>> passed is here]]></description>
        </meassage>
    </test>
    <test name="test2">
        <meassage type="warning">
            <description><![CDATA[  ===>> warning is here]]></description>
        </meassage>
        <meassage type="fail">
            <description><![CDATA[  ===>> fail is here]]></description>
        </meassage>
        <meassage type="passed">
            <description><![CDATA[  ===>> passed is here]]></description>
        </meassage>
        <check name="" line="100">
            <result type="text"></result>
            <description type="DETAILED"></description>
        </check>
    </test>
</reult>

我想要做的是阅读每个测试for，然后删除每个与我无关的消息节点。这意味着必须删除所有不具有“失败”、“错误”和“警告”属性的节点。

我开始使用消息删除所有测试子项，但它会删除应该保留的内容。这是仅用于删除的代码的主要部分，我无法弄清楚。

my $cut_name = 'message'; 
my $xml_file = 'test.xml';

my $mainXml = XML::Simple::Tree->new( file => $xml_file,
                        node_key => 'directory',
                        target_key => 'name');

$mainXml->cut_node($cut_name);

删除所有不相关的节点后，我会将结果另存为新XML文件。顺便问一下，您能告诉我如何使用带有属性的拼接删除节点吗？

标签： xmlperl

解决方案

http://p3rl.org/xml_grep

xml_grep \
    --cond 'meassage[@name="error"]' \
    --cond 'meassage[@name="fail"]' \
    --cond 'meassage[@name="warning"]' \
    so50214597.xml

推荐阅读