view release on metacpan or  search on metacpan

bin/nfd-print-routes6.pl  view on Meta::CPAN

      }
   }

   $ip6 =~ s/\/[0-9]+$// if $ip6;

   ($ip6 &&  lc($ip6)) || '::1';
}

sub _getRoutesLinux {
   my %ifRoutes;
   my $buf = `netstat -rnA inet6`;
   my %devIps;
   if ($buf) {
      my @lines = split('\n', $buf);
      for (@lines) {
         my @elts = split(/\s+/);
         if (Net::IPv6Addr::is_ipv6($elts[0])) {
            unless (exists $devIps{interface}) {
               $devIps{$elts[-1]} = _getIp6($elts[-1]);
            }
            my $route = {