如何访问 XML::Simple 返回的数据结构中的值？

Question

大家好，
这对于 Perl 程序员来说非常简单，但对于像我这样的初学者来说却不是，
我有一个 xml 文件，我使用 XML::Simple 像这样

my $file="service.xml";
my $xml = new XML::Simple;
 my $data = $xml->XMLin("$file", ForceArray =>  ['Service','SystemReaction',  
                                      'Customers', 'Suppliers','SW','HW'],);

转储 $data 进行处理，它看起来像这样：

$data = {
   'Service' => [{
         'Suppliers' => [{
               'SW' => [
                  {'Path' => '/work/service.xml',  'Service' => 'b7a'},
                  {'Path' => '/work/service1.xml', 'Service' => 'b7b'},
                  {'Path' => '/work/service2.xml', 'Service' => 'b5'}]}
         ],
         'Id' => 'SKRM',
         'Customers' =>
            [{'SW' => [{'Path' => '/work/service.xml', 'Service' => 'ASOC'}]}],
         'Des'  => 'Control the current through the pipe',
         'Name' => ' Control unit'
      },
      {
         'Suppliers' => [{
               'HW' => [{
                     'Type'    => 'W',
                     'Path'    => '/work/hardware.xml',
                     'Nr'      => '18',
                     'Service' => '1'
                  },
                  {
                     'Type'    => 'B',
                     'Path'    => '/work/hardware.xml',
                     'Nr'      => '7',
                     'Service' => '1'
                  },
                  {
                     'Type'    => 'k',
                     'Path'    => '/work/hardware.xml',
                     'Nr'      => '1',
                     'Service' => '1'
                  }]}
         ],
         'Id' => 'ADTM',
         'Customers' =>
            [{'SW' => [{'Path' => '/work/service.xml', 'Service' => 'SDCR'}]}],
         'Des'  => 'It delivers actual motor speed',
         'Name' => ' Motor Drivers and Diognostics'
      },
      # etc.
   ],
   'Systemreaction' => [
      # etc.
   ],
};

如何访问服务和 systemReaction 中的每个元素（未提供）。因为我在进一步处理中使用“$data”。所以我需要访问每个服务中的每个 ID、客户、供应商值。如何从服务获取特定值以使用该值执行某些处理。例如，我需要从服务获取所有 Id 值并为每个 id 值创建节点。

为了获取类型和 Nr 值，我尝试了这样的操作，

 foreach my $service (@{ $data->{Service}[1]{Suppliers}[0]{HW}[0] }) {
 say $service->{Nr};
 }
 foreach my $service (@{ $data->{Service}[1]{Suppliers}[0]{HW}[0] }) {
 say $service->{Type};

  }

您可以帮助我如何从供应商 -> HW 获取所有 Nr 和类型值。

Answer 1

我建议阅读 perldocs 参考教程 和 引用和嵌套数据结构。它们包含如何访问此类数据的介绍和完整解释。

但是，例如，您可以通过执行以下操作来访问服务 ID：

say $data->{Service}[0]{Id}   # prints SKRM

您可以通过循环遍历所有服务，打印其 ID：

foreach my $service (@{ $data->{Service} }) {
    say $service->{Id};
}

响应您的编辑

$data->{Service}[1]{ Supplys}[0]{HW}[0] 是一个哈希引用（您可以使用 Data::Dumper 或 Data::Dump 就可以了，或者只是 ref 函数）。特别地，它是 { Nr => 18、路径=> “/work/hardware.xml”，服务=> 1、类型=> "W" }

换句话说，你几乎已经明白了——你只是走得太深了一层。它应该是：

foreach my $service (@{ $data->{Service}[1]{Suppliers}[0]{HW} }) {
 say $service->{Nr};
}

注意缺少最终的[0] 。