view release on metacpan or  search on metacpan

examples/lltd-discover.pl  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
print "Host found\n";
my ($mac, $ip, $name, $ip6, $perfCounter, $linkSpeed);
for ($lltd->upperLayer->tlvList) {
   if ($_->type == NF_LLTD_TLV_TYPE_HOSTID) {
      $mac = convertMac(unpack('H12', $_->value));
   }
   elsif ($_->type == NF_LLTD_TLV_TYPE_IPv4ADDRESS) {
      $ip = inetNtoa($_->value);
   }
   elsif ($_->type == NF_LLTD_TLV_TYPE_IPv6ADDRESS) {
      $ip6 = inet6Ntoa($_->value);
   }
   #elsif ($_->type == NF_LLTD_TLV_TYPE_PERFCOUNTER) {
      #$perfCounter = unpack('N', $_->value << 32);
   #}
   elsif ($_->type == NF_LLTD_TLV_TYPE_MACHINENAME) {
      $name = $_->value;
   }
   elsif ($_->type == NF_LLTD_TLV_TYPE_LINKSPEED) {
      $linkSpeed = unpack('N', $_->value);
   }