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

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 - > {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循环对其进行迭代.