Question

我是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阅读每个测试，然后删除与我无关的每个消息节点。这意味着，所有节点都没有＆＃34;失败＆＃34;，＆＃34;错误＆＃34;和＆＃34;警告＆＃34;必须删除属性。

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

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文件。顺便问一下，请您告诉我如何使用带有属性的splice删除节点？

Answer 1

http://p3rl.org/xml_grep

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

删除Perl中

1 个答案: