XML SIMPLE PERL - проблема с циклом дочерних узлов - PullRequest
Новая
       31

XML SIMPLE PERL - проблема с циклом дочерних узлов

0 голосов
/ 26 октября 2018

У меня есть некоторый Perl-код 

my $res = $ua->get( $access->to_url );
if ($res->is_success) {
my $ref = XMLin( $res->content );


    my $xml = new XML::Simple;
    $data = $xml->XMLin($res->content,ForceArray => 1);
    #print $res->content;
    for my $purchase ( @{ $data->{PurchaseOrders}->{PurchaseOrder}} )

Этот бит в порядке ....

Как всегда, когда я пытаюсь перебрать дочерние элементы, если есть только один дочерний элемент

я получаю сообщение об ошибке «не ссылка на массив» 

for my $item ( @{$purchase->{LineItems}->{LineItem}} ) 
    {
    $itemCode = $item->{ItemCode}; 
    }

Структура XML выглядит примерно так 

PurchaseOrders

    PurchaseOrder

        LineItems

            LineItem

Мне известно о проблеме с xml simple, когда мне приходится форсировать массив, но я не уверен, как форсировать массив дочерних узлов

Я нашел эту статью о стековом потоке, которая кажется очень близкой к моей точной проблеме, но я борюсь за то, как ее выполнить, в моем коде

perl, анализ XML с использованием XML :: Simple 

   $VAR1 = {
      'PurchaseOrderID' => '82fa50d6-fd45-4fd2-b42d-035aaaa39a2c',
      'LineAmountTypes' => 'Exclusive',
      'SentToContact' => 'true',
      'AttentionTo' => 'sxxxx',
      'Status' => 'AUTHORISED',
      'LineItems' => {
                       'LineItem' => {
                                       'LineAmount' => '57.61',
                                       'Quantity' => '1.0000',
                                       'UnitAmount' => '57.6100',
                                       'LineItemID' => 'e295d55d-68bd',
                                       'Description' => 'xxx',
                                       'ItemCode' => 'xxx',
                                       'TaxAmount' => '11.52',
                                       'AccountCode' => '310',
                                       'TaxType' => 'INPUT2'
                                     }
                     },
      'UpdatedDateUTC' => '2018-10-26T14:19:19.053',
      'CurrencyCode' => 'GBP',
      'Contact' => {

Включен фрагмент из моего самосвала печати - обратите внимание, это всего лишь фрагмент важной части, все хорошо, пока не попадет на позиции

Также вот XML-файл 

<PurchaseOrder>
  <PurchaseOrderID>82fa50</PurchaseOrderID>
  <PurchaseOrderNumber>PO-0029</PurchaseOrderNumber>
  <Date>2018-10-26T00:00:00</Date>
  <DeliveryDate>2018-10-28T00:00:00</DeliveryDate>
  <DeliveryAddress>Address/DeliveryAddress>
  <AttentionTo>XXX</AttentionTo>
  <SentToContact>true</SentToContact>
  <Reference>000000078</Reference>
  <CurrencyRate>1.000000</CurrencyRate>
  <CurrencyCode>GBP</CurrencyCode>
  <Contact>
    <ContactID>f203ed00-8cd1-4e4d-9b76-f5e7d90a3c19</ContactID>
    <ContactStatus>ACTIVE</ContactStatus>
    <Name>XXX</Name>
    <FirstName>XXXy</FirstName>
    <LastName>XXX</LastName>
    <Addresses>
      <Address>
        <AddressType>XXX</AddressType>
        <AddressLine1>XXX</AddressLine1>
        <AddressLine2>XXX</AddressLine2>
        <City>XXX</City>
        <Region>XXX</Region>
        <PostalCode>XXX</PostalCode>
        <Country>GBR</Country>
      </Address>
      <Address>
        <AddressType>XXX</AddressType>
        <AddressLine1>Unit 1-3</AddressLine1>
        <AddressLine2>XXX</AddressLine2>
        <City>XXX</City>
        <Region>West Yorkshire</Region>
        <PostalCode>POSTCODE</PostalCode>
        <Country>GBR</Country>
      </Address>
    </Addresses>
    <UpdatedDateUTC>2018-10-08T17:19:55.083</UpdatedDateUTC>
    <DefaultCurrency>GBP</DefaultCurrency>
  </Contact>
  <BrandingThemeID>2ffe566f-7a88-486a-938c-639d27966197</BrandingThemeID>
  <Status>AUTHORISED</Status>
  <LineAmountTypes>Exclusive</LineAmountTypes>
  <LineItems>
    <LineItem>
      <ItemCode>xxx</ItemCode>
      <Description>des</Description>
      <UnitAmount>57.6100</UnitAmount>
      <TaxType>INPUT2</TaxType>
      <TaxAmount>11.52</TaxAmount>
      <LineAmount>57.61</LineAmount>
      <AccountCode>310</AccountCode>
      <Quantity>1.0000</Quantity>
      <LineItemID>e295d55d-68bd-41b0-a0b1-cf1f2d5b7a4f</LineItemID>
    </LineItem>
  </LineItems>
  <SubTotal>57.61</SubTotal>
  <TotalTax>11.52</TotalTax>
  <Total>69.13</Total>
  <UpdatedDateUTC>2018-10-26T14:19:19.053</UpdatedDateUTC>
  <HasAttachments>false</HasAttachments>
</PurchaseOrder>

1 Ответ

0 голосов
/ 26 октября 2018

Вы можете избежать проблем с ForceArray и запутать структуры данных, используя синтаксический анализатор XML, который возвращает объект, который понимает дерево XML. Mojo :: DOM - хороший вариант, если вы знаете CSS. 

use Mojo::DOM;

my $dom = Mojo::DOM->new->xml(1)->parse($res->decoded_content);
for my $purchase ($dom->find('PurchaseOrders > PurchaseOrder')->each) {
  # $purchase is a Mojo::DOM object representing a PurchaseOrder element
  for my $item ($purchase->find('LineItems > LineItem')->each) {
    # It's unclear if ItemCode is an an attribute or a sub-element; assuming sub-element
    my $itemCode = $item->at('ItemCode')->text;
    ...
  }
}

XML :: LibXML - это еще один вариант, который можно использовать аналогичным образом, но с использованием XPath илиDOM вместо CSS для поиска элементов. 

use XML::LibXML qw( );

my $doc = XML::LibXML->load_xml(string => $res->decoded_content);
for my $purchase ($doc->findodes('/PurchaseOrders/PurchaseOrder')) {
  # $purchase is a XML::LibXML::Element object representing a PurchaseOrder element
  for my $item ($purchase->findnodes('LineItems/LineItem')) {
    # It's unclear if ItemCode is an an attribute or a sub-element; assuming sub-element
    my $itemCode = $item->findvalue('ItemCode');
    ...
  }
}
...