0

我有许多要解析的多节点 XML 文件XML::Simple。到目前为止效果很好。我做的第一件事是使用以下方法获取 XML 文件的长度（节点数）：

my $xmltemp = XML::Simple->new(
    SuppressEmpty => 1
);

my $product = $xmltemp->XMLin('xml/' . $basename . '.xml');

my $qfr = @{ $product->{$basename}};
print "$qfr = qfr\n";

该变量$basename是通过循环文件名数组来提供的。节点名和文件名相同。

这适用于所有文件，除了只有一个节点的文件。程序在尝试创建$qfr变量时陷入困境。

如果我编辑其中一个单节点 XML 文件并创建另一个节点（复制现有节点）并重新运行，则可以正常工作。

导致单节点 XML 不响应简单的标量变量赋值的错误是什么？

该print行甚至不会执行。

注意：我从 .pl 和 .pm 中剪切并粘贴了重要的代码部分，以便于掌握。

编辑：这是一个单节点 XML 示例：

<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<FUNDDATA>
  <FUND_DATA>
    <ADVISOR_FUND_CUSIP>316146703</ADVISOR_FUND_CUSIP>
    <ADVISOR_FUND_ID>01118</ADVISOR_FUND_ID>
    <ADVISOR_FUND_NAME>Pizza Fund - Class A</ADVISOR_FUND_NAME>
    <ADVISOR_FUND_SASID>01118</ADVISOR_FUND_SASID>
    <ALL_ADVISOR_CLASSES>01118,01123,01124,01125,01126</ALL_ADVISOR_CLASSES>
    <ALL_ADVISOR_CLASSES_CUSIPS>316146703,316146885,316146877,316146802,316146869</ALL_ADVISOR_CLASSES_CUSIPS>
    <ALL_ADVISOR_CLASSES_SASIDS>01118,01123,01124,01125,01126</ALL_ADVISOR_CLASSES_SASIDS>
    <ALL_ADVISOR_CLASSES_TYPES>A,B,C,T,I</ALL_ADVISOR_CLASSES_TYPES>
    <ALL_RETAIL_CLASSES>00026</ALL_RETAIL_CLASSES>
    <ALL_RETAIL_CLASSES_CUSIPS>316146109</ALL_RETAIL_CLASSES_CUSIPS>
    <ALL_RETAIL_CLASSES_SASIDS>00026</ALL_RETAIL_CLASSES_SASIDS>
    <ALL_RETAIL_CLASSES_TYPES>N</ALL_RETAIL_CLASSES_TYPES>
    <BUSINESS_UNIT>CCC</BUSINESS_UNIT>
    <DATE_ID>September 2000</DATE_ID>
    <PRIMARY_FUND_ID>000044</PRIMARY_FUND_ID>
    <RETAIL_FUND_CUSIP>44444</RETAIL_FUND_CUSIP>
    <RETAIL_FUND_ID>00026</RETAIL_FUND_ID>
    <RETAIL_FUND_NAME>Pizza Fund</RETAIL_FUND_NAME>
    <RETAIL_FUND_SASID>00026</RETAIL_FUND_SASID>
    <TRADE_SYMBOL>CCHCC</TRADE_SYMBOL>
  </FUND_DATA>
</FUNDDATA>
4

1 回答 1

1

这只是您在使用XML::Simple.

在这种情况下有一个解决方案：您需要在构造函数调用中启用该ForceArray选项，如下所示

my $xmltemp = XML::Simple->new(
    SuppressEmpty => 1,
    ForceArray    => 1,
);

文档对此有话要说

此选项应设置为“1”以强制嵌套元素表示为数组，即使只有一个。

于 2015-01-12T17:38:34.687 回答