0

我正在尝试访问存储在 Perl 数组中的哈希的每个成员。我已经看到循环遍历 Perl 中的哈希数组，我需要一种更好的方法来访问它们。我的最终结果是将每个项目（哈希）拆分为一个数组，将该哈希的键存储在一个新数组中，将该数组的值存储在另一个数组中。

编辑：我改变了他们获取数据的方式，以更好地反映我的代码。我不认为这很重要，但确实如此。

XML 源：

<XML>
    <computer>
        <network>
            <interface1>
                <name>eht0</name>
                <ip>182.32.14.52</ip>
            </interface1>
            <interface2>
                <name>eth2</name>
                <ip>123.234.13.41</ip>
            </interface2>
        </network>
    </computer>
</xml>

PERL 代码：

my %interfaceHash;
for(my $i=0; $i < $numOfInterfaces; $i++ ){
    my $interfaceNodes = $xmldoc->findnodes('//computer/network/interface'.($i+1).'/*');
    foreach my $inode ($interfaceNodes->get_nodelist){
        my $inetValue = $inode->textContent();
        if ($inetValue){
            my $inetField = $inode->localname;
            push (@net_int_fields, $inetField);
            push (@net_int_values, $inetValue);
        }
    }
    for(my $i =0; $i< ($#net_int_fields); $i++){
        $net_int_hash{"$net_int_fields[$i]"} = "$net_int_values[$i]";
    }
    push (@networkInterfaces, \%net_int_hash); #stores 
}

现在，如果我尝试访问该数组，它会清除散列中存储的内容。

4

3 回答 3

3

要在 Perl 中构建复杂的数据结构，请从阅读perldsc - Perl Data Structures Cookbook开始。

#!/usr/bin/perl
use warnings;
use strict;

my %interface1 = (iFaceName => 'eth0',
                  ipAddr    => '192.168.0.43',
                 );
my %interface2 = (iFaceName => 'eth1',
                  ipAddr    => '192.168.10.64',
                 );
my @networkInterfaces;
my @iFaceKeys;
my @iFaceVals;
push @networkInterfaces, \%interface1; # Note the backslash!
push @networkInterfaces, \%interface2;

for my $iFace (@networkInterfaces) {
    push @iFaceKeys, keys   %$iFace;
    push @iFaceVals, values %$iFace;
}
于 2013-04-19T15:35:58.780 回答
1

您的问题是哈希不能是数组的成员。只有标量可以。

您在数组中需要的不是哈希，而是对哈希的标量引用：

push @networkInterfaces \%interface1; # \ is a reference taking operator

然后，要访问该 hashref 的单个元素，您可以

$networkInterfaces[0]->{iFaceName}; # "->{}" accesses a value of a hash reference

要访问整个哈希（例如获取其密钥），请使用%{ hashref }语法取消引用：

foreach my $key ( keys %{ $networkInterfaces[0] } ) {
于 2013-04-19T15:36:18.673 回答
0

一个很好的方法是创建一个哈希引用数组。

%first_hash = (a => 1, b => 2);
%second_hash = (a => 3, b => 4);

@array_of_hash_refs = ( \%first_hash, \%second_hash );

foreach $hash_ref (@array_of_hash_refs)
{
        print "a = ", $hash->{a}, "\n";
        print "b = ", $hash->{b}, "\n";
}

请记住，perl 具有不同的语法来访问哈希数据，具体取决于您使用的是哈希对象还是对哈希对象的引用。

$hash_ref->{key}
$hash{key}
于 2013-04-19T15:33:52.757 回答