在關聯數組中訪問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 。