1

我正在尝试创建一个散列数组，每个散列都是一个并列的有序 IxHash。当遍历我的初始哈希时，键确实是有序的。但是，一旦我将它们推送到数组上，排序就会消失。我知道这是我对将哈希推送到数组时发生的情况的了解不足，但是如果有人可以启发我，将不胜感激。

#! /usr/bin/perl -w

use strict;
use Data::Dumper;
use Tie::IxHash;

my @portinfo;

tie (my %portconfig, 'Tie::IxHash',
      'name' => [ 'Name', 'whatever' ],
      'port' => [ 'Port', '12345' ],
      'secure' => [ 'Secure', 'N' ]
      );

print "Dump of hash\n";
print Dumper(%portconfig);

print "\nDump of array\n";
push @portinfo, {%portconfig}; 
print Dumper(@portinfo);

这个的输出： -

Dump of hash
$VAR1 = 'name';
$VAR2 = [
          'Name',
          'whatever'
        ];
$VAR3 = 'port';
$VAR4 = [
          'Port',
          '12345'
        ];
$VAR5 = 'secure';
$VAR6 = [
          'Secure',
          'N'
        ];

Dump of array
$VAR1 = {
          'secure' => [
                        'Secure',
                        'N'
                      ],
          'name' => [
                      'Name',
                      'whatever'
                    ],
          'port' => [
                      'Port',
                      '12345'
                    ]
        };
4

1 回答 1

6

你的代码：

push @portinfo, {%portconfig}; 
print Dumper(@portinfo);

获取绑定的哈希%portconfig并将其内容放入一个新的匿名哈希中，然后将其推入@portinfo. 因此，您的数组中有一个匿名的、无序的散列。

你可能想要做的是

push @portinfo, \%portconfig; 
print Dumper(@portinfo);

这会将引用推%portconfig入@portinfo，从而保留您所需的顺序。

因此：

#! /usr/bin/perl -w

use strict;
use Data::Dumper;
use Tie::IxHash;

my @portinfo;

tie (my %portconfig, 'Tie::IxHash',
      'name' => [ 'Name', 'whatever' ],
      'port' => [ 'Port', '12345' ],
      'secure' => [ 'Secure', 'N' ]
      );

print "Dump of hash\n";
print Dumper(%portconfig);

print "\nDump of array\n";
push @portinfo, \%portconfig; 
print Dumper(@portinfo);

给

C:\demos>perl demo.pl
Dump of hash
$VAR1 = 'name';
$VAR2 = [
          'Name',
          'whatever'
        ];
$VAR3 = 'port';
$VAR4 = [
          'Port',
          '12345'
        ];
$VAR5 = 'secure';
$VAR6 = [
          'Secure',
          'N'
        ];

Dump of array
$VAR1 = {
          'name' => [
                      'Name',
                      'whatever'
                    ],
          'port' => [
                      'Port',
                      '12345'
                    ],
          'secure' => [
                        'Secure',
                        'N'
                      ]
        };
于 2012-08-06T15:21:49.137 回答