我正在尝试使用 perl 和 XML::Simple 将少量数据从 XML 文件提取到 csv 文件中。

这是数据的编辑版本:

<?xml version="1.0" encoding="UTF-8"?>
<orders xmlns="http://www.demandware.com/xml/impex/order/2006-10-31">
    <order order-no="W100148941">
        <order-date>2011-08-22T16:15:47.000Z</order-date>
        <custom-attributes>
            <custom-attribute attribute-id="basket_notes">bnotes974211</custom-attribute>
            <custom-attribute attribute-id="omOrderID">974211</custom-attribute>
        </custom-attributes>
    </order>
</orders>

使用这个脚本:

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;

$xml = new XML::Simple;
$data = $xml->XMLin("$ARGV[0]", ForceArray=>1);


print Dumper($data);
foreach $o (@{$data->{order}}) {
    print "$ARGV[1]", ",";
    print "$ARGV[2]", ",";
    print "$ARGV[3]", ",";
    print "$ARGV[4]", ",";
    print $o->{"order-no"}, ",";
    print $o->{"order-date"}, ",";
    foreach my $o ( @{ $data->{'custom-attribute'} } ) {
        print 'in level 1';
        foreach my $attr ( @{ $data->{'custom-attribute'} } ) {
            print 'in level 2';
            if ( $attr->{'attribute-id'} eq 'basket_notes' ) {
                print '"', $data->{'content'}, '"', ",";
            }
        }
    }
    print "\n";
}

给我这个输出:

,,,,W100148941,ARRAY(0x7f7f63a524c0),

不使用 ForceArray 选项 XMLin 将用正确的值替换上面的 ARRAY(...)，但不适用于只有一个数据元素的文件，而且很明显，这段代码永远不会进入自定义属性数组以打印任何内容。

我做错了什么？

更新:

将上面的循环代码改成这样:

foreach $o (@{$data->{order}})
{
print "$ARGV[1]", ",";
print "$ARGV[2]", ",";
print "$ARGV[3]", ",";
print "$ARGV[4]", ",";
print $o->{"order-no"}, ",";
#print $o->{"order-date"}, ",";
print $o->{"order-date"}->[0], ",";
foreach my $o ( @{ $data->{'custom-attributes'} } ) {
    print 'in level 1';
   foreach my $attr ( @{ $o->{'custom-attribute'} } ) {
        print 'in level 2';
        if ( $attr->{'attribute-id'} eq 'omOrderID' ) {
            print '"', $data->{'content'}, '"', ",";
        }
    }
}

print "\n";
}

产生这个:

,,,,W100148941,2011-08-22T16:15:47.000Z,

看起来代码没有进入自定义属性循环，我不知道为什么。

最佳答案

你的问题是“订单日期”——由于 ForceArray——也被强制成为一个 arrayref，正如你从已经存在的 Dumper 输出中看到的那样:

...
     'order-date' => [
                     '2011-08-22T16:15:47.000Z'
                     ],

因此，您需要做以下两件事之一:

• 如果订单日期始终是单个值，则硬编码打印第一个数组值:

  print $o->{"order-date"}->[0], ",";
  

• 如果订单日期始终是单个值，请通过传递更详细的 ForceArray 指令来更改您的构造函数参数。

  XML::Simple POD 显示，除了一个简单的 ForceArray=>1 选项，你 can also pass要强制放入数组的有限标签列表(例如 ForceArray => [ "custom-attributes", "custom-attribute"])

  • 如果 order-date 可以有多个标签，只需循环打印它，就像您已经在下面处理其他多个标签一样:

    foreach 我的 $order_date ( @{ $data->{'order-date'} } ) { 打印“$order_date”，

此外，您的嵌套循环中还有一些错误。

你的第一个循环应该是

foreach my $o ( @{ $data->{'custom-attributes'} } ) { # You had "attribute"

第二个循环应该遍历它的子结构:

    foreach my $attr ( @{ $o->{'custom-attribute'} } ) { # instead of $data->...

撇开所有这些不谈，根据我相当丰富的经验，将 XML 转换为平面文件 (CSV) 有点糟糕，说得客气一点。请认真考虑您是否在做正确的事情。

如果没有狡猾的编码，就无法正确或轻松地映射数据；稍后解码这种狡猾的编码并不比简单地再次读取 XML 更容易。

• 如果您需要转换它以便其他程序可读，请保留 XML 或转换为 JSON

• 如果您需要将其转换为显示给人类，请使用 Data::Dumper 或其他一些 pretty-print

• 如果您需要将其作为 GUI 显示给人类，请开发一个良好的 GUI 以匹配您的数据结构。

关于xml - 打印 XML 数组值，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/12169029/