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

我想使用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>

执行之后，我得到的输出是

结果: 结果: 结果:

只有文本内容，而不是所有文本内容

---

请注意。

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

---

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

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

---

谢谢你的帮助。但是我想使用perl脚本来分离这些属性及其值。我该怎么做

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";
    }
}

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