Question

我正在使用XML :: Simple将一些XML加载到一个基本上包含文件/目录信息的数据结构中。我遇到的问题是迭代结果数据结构。我可以使用以下内容获取我需要的数据：

$lsResults->{file}

如果我使用Dumper转储该结构，我看到的是：

$VAR1 = [
          {
            'owner' => 'reps_hd',
            'replication' => '3',
            'blocksize' => '134217728',
            'permission' => '-rw-r-----',
            'path' => '/projects/mdataeng/feeds/customer_care/mail_q_grid_data_20110816.dat',
            'modified' => '2011-08-18T21:41:11+0000',
            'size' => '625182',
            'group' => 'mdataeng',
            'accesstime' => '2011-08-18T21:41:11+0000'
          },
          {
            'owner' => 'reps_hd',
            'replication' => '3',
            'blocksize' => '134217728',
            'permission' => '-rw-r--r--',
            'path' => '/projects/mdataeng/feeds/customer_care/mail_q_grid_data_20110817.dat',
            'modified' => '2011-08-19T23:29:06+0000',
            'size' => '600199',
            'group' => 'mdataeng',
            'accesstime' => '2011-08-19T23:29:06+0000'
          }, 
   ....

这基本上不是哈希引用数组吗？我知道我可以通过以下方式引用第一个元素中的数据：

print Dumper($lsResults->{file}[0]);

$VAR1 = {
          'owner' => 'reps_hd',
          'replication' => '3',
          'blocksize' => '134217728',
          'permission' => '-rw-r-----',
          'path' => '/projects/mdataeng/feeds/customer_care/mail_q_grid_data_20110816.dat',
          'modified' => '2011-08-18T21:41:11+0000',
          'size' => '625182',
          'group' => 'mdataeng',
          'accesstime' => '2011-08-18T21:41:11+0000'
        };

所以，问题是，我如何遍历$ lsResults-＆gt; {file}结构中的所有结果来获得每个条目的“路径”键值？我知道我可以通过以下方式手动引用它：

print $lsResults->{file}[0]->{path};
print $lsResults->{file}[1]->{path};
print $lsResults->{file}[2]->{path};
print $lsResults->{file}[3]->{path};

但我似乎无法弄清楚如何迭代

$lsResults->{file}

我到底错在了什么？

Answer 1

试试这个：

for my $file ( @{$lsResults->{file}} ) {
    print $file->{path};
}

变量$lsResults->{file}实际上是一个数组引用，而不是数组，因此您必须取消引用它以使用for循环对其进行迭代。

Answer 2

您还可以使用map获取列表转换：

use strict;
use warnings;

my @allPaths = map {$_->{path}} @{$lsResults->{file}}

print "$_\n" foreach @allPaths;

通过Perl中的哈希引用数组进行迭代？

2 个答案: