排除“伪哈希值已被弃用”的问题使用 xml 模块时

Question

我刚刚学习如何使用 perl 哈希并在 perl 中遇到了此消息。我使用 XML::Simple 解析 xml 输出，并使用 exists 检查哈希键。

消息： 伪哈希在 ./h2.pl 第 53 行已弃用。 参数“\x{2f}\x{70}...”在 ./h2.pl 第 53 行中的存在中不是数字。 在 ./h2.pl 第 53 行将数组强制转换为哈希值时索引错误。

我之前使用一个测试目录工作脚本，然后在另一个目录上执行脚本进行测试，当我得到这条消息。我该如何解决/解决这个问题？

错误引用的代码：

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

#my $data = XMLin($xml);
my $data = XMLin($xml, ForceArray => [qw (file) ]);
my $size=0;

if (exists $data->{class}
       and $data->{class}=~ /FileNotFound/) {
        print "The directory: $Path does not exist\n";
        exit;
          } elsif (exists $data->{file}->{path}
                      and $data->{file}->{path} =~/test-out-00/) {
                    $size=$data->{file}->{size};
                       if ($size < 1024000) {
                          print "FILE SIZE:$size BYTES\n";
                          exit;
                       }
          } else {
            exit;
}

print Dumper( $data );

工作测试用例，数据结构如下所示：

$VAR1 = {
              'recursive' => 'no',
              'version' => '0.20.202.1.1101050227',
              'time' => '2011-09-30T02:49:39+0000',
              'filter' => '.*',
              'file' => {
                        'owner' => 'test_act',
                        'replication' => '3',
                        'blocksize' => '134217728',
                        'permission' => '-rw-------',
                        'path' => '/source/feeds/customer/test/test-out-00',
                        'modified' => '2011-09-30T02:48:41+0000',
                        'size' => '135860644',
                        'group' => '',
                        'accesstime' => '2011-09-30T02:48:41+0000'
                     'modified' => '2011-09-30T02:48:41+0000'
                   },
      'exclude' => ''
    };
recursive:no
version:0.20.202.1.1101050227
time:2011-10-01T07:06:16+0000
filter:.*
file:HASH(0x84c83ec)
path:/source/feeds/customer/test
directory:HASH(0x84c75d8)
exclude:

看到错误的数据结构：

$VAR1 = {
          'recursive' => 'no',
          'version' => '0.20.202.1.1101050227',
          'time' => '2011-10-03T04:49:36+0000',
          'filter' => '.*',
          'file' => [
                    {
                      'owner' => 'test_act',
                      'replication' => '3',
                      'blocksize' => '134217728',
                      'permission' => '-rw-------',
                      'path' => '/source/feeds/customer/test/20110531/test-out-00',
                      'modified' => '2011-10-03T04:47:46+0000',
                      'size' => '121406618',
                      'group' => 'feeds',
                      'accesstime' => '2011-10-03T04:47:46+0000'
                    },

测试xml文件：

<?xml version="1.0" encoding="UTF-8"?><listing time="2011-10-03T04:49:36+0000" recursive="no" path="/source/feeds/customer/test/20110531" exclude="" filter=".*" version="0.20.202.1.1101050227"><directory path="/source/feeds/customer/test/20110531" modified="2011-10-03T04:48:19+0000" accesstime="1970-01-01T00:00:00+0000" permission="drwx------" owner="test_act" group="feeds"/><file path="/source/feeds/customer/test/20110531/test-out-00" modified="2011-10-03T04:47:46+0000" accesstime="2011-10-03T04:47:46+0000" size="121406618" replication="3" blocksize="134217728" permission="-rw-------" owner="test_act" group="feeds"/><file path="/source/feeds/customer/test/20110531/test-out-01" modified="2011-10-03T04:48:04+0000" accesstime="2011-10-03T04:48:04+0000" size="127528522" replication="3" blocksize="134217728" permission="-rw-------" owner="test_act" group="feeds"/><file path="/source/feeds/customer/test/20110531/test-out-02" modified="2011-10-03T04:48:19+0000" accesstime="2011-10-03T04:48:19+0000" size="125452919" replication="3" blocksize="134217728" permission="-rw-------" owner="test_act" group="feeds"/></listing>

Answer 1

“Pseudo-hashes are deprecated”错误意味着您正在尝试将数组作为哈希访问，这意味着 $data->{file} 或 $data-> {file}{path} 是一个数组引用。

您可以使用 print ref $data->{file} 检查数据类型。 Data::Dumper 模块还可以帮助您查看数据结构中的内容（也许在设置 $Data::Dumper::Maxdepth = N 来限制转储时）如果结构很大，则为 N 层）。

更新

现在您正在使用ForceArray，$data->{file}应该始终指向一个arrayref，它可能有对path的多个引用.这是修改后的代码段来处理该问题。但请注意，if-then-exit 条件的逻辑可能必须更改。

if (defined $data->{class} and $data->{class}=~ /FileNotFound/) {
    print "The directory: $Path does not exist\n";
    exit;
}

exit if ! defined $data->{file};

# filter the list for the first file entry named test-out-00
my ( $file ) = grep { 
    defined $_->{path} && $_->{path} =~ /test-out-00/ 
} @{ $data->{file} };

exit if ! defined $file;

$size = $file->{size};
if ($size < 1024000) {
    print "FILE SIZE:$size BYTES\n";
    exit;
}

Answer 2

使用 XML::Simple 时，ForceArray 选项是最需要理解的之一，特别是当您的输入数据具有可能出现 1 次或多次的嵌套元素时。例如：

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

my @xml_snippets = (
    '<opt> <name x="3" y="4">B</name> <name x="5" y="6">C</name> </opt>',
    '<opt> <name x="1" y="2">A</name>                            </opt>',
);

for my $xs (@xml_snippets){
    my $data = XMLin($xs, ForceArray => 0);
    print Dumper($data);
}

输出：

$VAR1 = {
  'name' => [      # Array ref because there are 2 <name> elements.
    {
      'y' => '4',
      'content' => 'B',
      'x' => '3'
    },
    {
      'y' => '6',
      'content' => 'C',
      'x' => '5'
    }
  ]
};
$VAR1 = {
  'name' => {      # No intermediate array ref.
    'y' => '2',
    'content' => 'A',
    'x' => '1'
  }
};

通过激活 ForceArray 选项，您可以直接 XML::Simple 用于生成始终使用中间数组引用的一致数据结构，即使只有 1 个特定嵌套元素也是如此。您可以全局或针对特定标签激活该选项，如下所示：

my $data = XMLin($xs, ForceArray => 1                );  # Globally.
my $data = XMLin($xs, ForceArray => [qw(name foo bar)]);

Answer 3

首先，我建议您使用 ForceArray =>; [qw( file )] 如前所述。这将导致为 file 返回一个数组，无论有一个还是多个 file 元素。这比具有两种可能的格式更容易处理。

正如我之前指出的，问题在于您没有为循环多个 file 元素做好准备。你说如果文件不存在你想退出，所以这意味着你想要

my $found;
for my $file (@{ $data->{file} }) {
   if ($file->{path} =~ m{/test-out-00\z}) {
      $found = $file;
      last;
   }
}

die("Test file not found\n") if !$found;

... do something with file data in $found ...