view release on metacpan or  search on metacpan

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

            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);
               }