Question

我想使用Perl脚本解析以下XML文件。

<?xml version="1.0" encoding="ISO-8859-1"?> 
 <?xml-stylesheet type="text/xsl" href="generate_report.xslt"?> 
 <TestRun> 
    <ConfigFile cfg="NA"/>
    <version ver="1.05.00"/>
    <date date="15:25:53 14/05/2014:  "/>
    <TestName TN="ABC service test"/>
    <SerialPort serialPortNumber="NA"/>
    <TimeOut TOInSec="60"/>
    <Protocol prot="CAN"/>
    <DeviceName CanUSBDev="CANpro USB"/>
    <BaudRateCAN BR="500 kBaud"/>
    <BoardNodeNr BNNR="NA"/>
    <BoardNVID BNVID="NA"/>
    <PCNodeNr PCNNR="NA"/>
    <PCNVID PCNVID="NA"/>
    <TCResult>

        <Result TestNr="1" Type="STEP" StepNr="1" Message="no msg required" Result="FAILED"/>
        <Result TestNr="1" Type="STEP" StepNr="2" Message="no msg required" Result="PASSED"/>
        <Result TestNr="1" Type="CASE" Result="FAILED"/>
    </TCResult>
</TestRun>

我的脚本如下

use strict;
use warnings;

# Import the XML::LibXML module
use XML::LibXML;

#my $LogXML = XMLin($ARGV[0], ForceArray => 1);
my $Parser = XML::LibXML->new();
my $XMLDoc = $Parser->parse_file($ARGV[0]);

for my $sample ( $XMLDoc->findnodes('/TestRun/TCResult'))
{
    foreach my $child ( $sample->findnodes('*'))
    {
        print "\t", $child->nodeName(), ":", $child->textContent(), "\n";
    }
}

执行后我输出为

结果：结果：结果：

仅限而不是所有文字内容。

请建议。

Answer 1

听起来你想要获得属性。在 foreach 循环中添加以下内容：

foreach my $at ($child->attributes())
{
    print $at->name() . ": " . $at->value() . "\t";
}
print "\n";

Answer 2

“结果”节点没有文本内容。它们只有属性和属性值。

文本内容是开始和结束标记之间的内容。

Perl脚本在xml文件的单行上读取多个参数

2 个答案: