访问关联数组中的perl属性

Question

是否有更简单的方法来访问'type'属性的值而不循环整个对象来找到它？

[
  { type => "voipPassword", vals => ["data"] },
  { type => "sn", vals => ["data"] },
  { type => "voipExtension", vals => [data] },
  { type => "cn", vals => ["data"] },
  { type => "telephoneNumber", vals => [data] },
  { type => "objectClass", vals => ["data"] },
  { type => "phoneMAC", vals => ["data"] },
]

Answer 1

您可以直接访问type，例如：

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

my $ref = [
            { type => "voipPassword", vals => ["data"] },
            { type => "sn", vals => ["data"] },
            { type => "voipExtension", vals => ["data"] },
            { type => "cn", vals => ["data"] },
            { type => "telephoneNumber", vals => ["data"] },
            { type => "objectClass", vals => ["data"] },
            { type => "phoneMAC", vals => ["data"] },
          ];

print $ref->[0]->{'type'} . "\n";
print $ref->[1]{'type'} . "\n";

输出：

voipPassword
sn

有关详细信息，请参阅perlreftut。