哈希表：有效计数与钥匙匹配的哈希

Question

我想检查perl中的IP -J添加ENO1的JSON输出。 我想计算NIC拥有多少IPv4。我仍然需要IPv6信息，因此我想使用-4，然后是-6标志的Avoir两次/usr/bin/ip命令。

现在，我可以访问这样的IP信息： $ nic-＆gt; {addr_info} [0] - ＆gt; {local} 对于每个条目，$ nic-＆gt; {addr_info} [$ ip_info_index] - ＆gt; {family}

在我表中的大多数情况下 将提供IP类型（INET或INET6）对于V4，一个用于V6，但有时我有2个V4条目A，并且想在我的软件中发布警告“不支持”。

$ nic--＆gt; {addr_info} [$ ip_info_index] - ＆gt; {family}将提供条目的类型。

是否有使用MAP和标量来计算多少$ nic-＆gt; {addr_info} [$ ip_info_index] - ＆gt; {family}等于'inet'（而不是'inet6' ）

（我可以在$ ip_info_index上循环，并在每次看到“ Inet”时增加计数器，但这似乎并不优雅）。

  DB<3> p Dumper($nic)
$VAR1 = {
          'txqlen' => 1000,
          'address' => '00:26:b9:7d:c0:ee',
          'broadcast' => 'ff:ff:ff:ff:ff:ff',
          'link_type' => 'ether',
          'group' => 'default',
          'mtu' => 1500,
          'qdisc' => 'mq',
          'flags' => [
                       'BROADCAST',
                       'MULTICAST',
                       'UP',
                       'LOWER_UP'
                     ],
          'operstate' => 'UP',
          'ifindex' => 2,
          'addr_info' => [
                           {
                             'valid_life_time' => 30949,
                             'preferred_life_time' => 30949,
                             'label' => 'eno1',
                             'family' => 'inet',
                             'scope' => 'global',
                             'noprefixroute' => bless( do{\(my $o = 1)}, 'JSON::PP::Boolean' ),
                             'prefixlen' => 24,
                             'local' => '172.16.59.72',
                             'broadcast' => '172.16.59.255',
                             'dynamic' => $VAR1->{'addr_info'}[0]{'noprefixroute'}
                           },
                           {
                             'family' => 'inet6',
                             'local' => 'fe80::226:b9ff:fe7d:c0ee',
                             'valid_life_time' => 4294967295,
                             'preferred_life_time' => 4294967295,
                             'prefixlen' => 64,
                             'scope' => 'link'
                           }
                         ],
          'ifname' => 'eno1'
        };

对于addr_info表，我希望计算有多少哈希具有'family'=＆gt; “ Inet”（对于“ Inet6”）。 如果设置一个IPv4或一个IPv6，我需要失败。 如果您想在Linux系统上进行测试，则可以获得$ NIC：

my $ip_addr_output = `LC_ALL=C /sbin/ip -j addr 2>/dev/null`;

Answer 1

我认为这就是您想要的。

$ NIC-＆GT; {ADDR_INFO}是对数组的引用，其中每个元素描述了连接到接口的IP地址之一。

因此，@{$ nic-＆gt; {addr_info}} dereferences数组，因此您现在可以将其传递给需要数组或列表的函数。一个这样的功能是 grepefterters efterts efterts 仅返回列表在满足某些标准的列表中。因此，我们可以使用：

grep { $_->{family} eq 'inet' } @{ $nic->{addr_info} }

如果您在标量上下文中调用`grep，它不会给您列表，它为您提供列表中的项目数量。

scalar grep { $_->{family} eq 'inet' } @{ $nic->{addr_info} }

因此，您可以使用类似的东西：

say "$nic->{ifname} : ", scalar grep { $_->{family} eq 'inet' } @{ $nic->{addr_info} };