Help for this page

Select Code to Download


  1. or download this
    sub subnet_recurse {

my $netaddr_ref = shift;
my $endaddr_ref = shift;
my $new_addmask;
  2. or download this
    print "<hr><b>base: " . $$netaddr_ref->network() "</b><br>";
my $hostnum = 0;
...
 $hostnum++;
 }
print "<b>brdc:".$$netaddr_ref->broadcast()."</b><br><hr>";
  3. or download this
    my $net_broadcast =  
 NetAddr::IP->new($$netaddr_ref->broadcast()->addr());
  4. or download this
    my $new_netaddr=NetAddr::IP->new($net_broadcast->addr())+1;
  5. or download this
    print "<b>brd: " . $net_broadcast->addr() ."</b><br>";

...
#} else { return; }
return;
}
  6. or download this
    host: 192.168.1.0/29
mask: 255.255.255.248
...
add5: 192.168.1.6/32
brdc: 192.168.1.7/29
192.168.1.7/32brd: 192.168.1.7